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1.0 GENKRAL INFORMATION 

1.1 PROGRAM ABSTRACT 

1.1.1 STRUCTURE OF PROGi^AM 

THIS DIAGMnSTIC OCCUPIES 14. 5K WORDS OF wjrMQpv AMD IS COMPATinLE WITH 
BOTH XXDP AND ACT, IT CAM BE RUN STANDALONE U^DER XXDP, AND CAN BE 
CHAINED UNDER XXDP^ ACT AND APT IN ACT MODS (SEE "CREATE CORE IMAGE'' 
COMMAND RELOW POP DETAILS OF CMAINING PPOCFDnpE), IT IS A SINGLE 
PROGRAM FROM THE STANDPOINT OF THE DIAGNOSTIC USER, RUT WE HAVE 
INCORPORATED INTO IT A CONTROL «ODULE WHICH WILL LATER BE RELEASED 
INOEPENDENTLV AS A DIAGNOSTIC SUPERVISOR. 

WHEN THIS DIAGNOSTIC IS STARTED AT ADDRESS 200/ CONTROL GOES FIRST TO 
THE SUPERVISOR PORTIOf^'^ WHICH VILL ASK CERTAIN "HARD COPE" QUESTIONS 
ABOUT THE ENVIRONMENT. THEN IT WILL ENTER COMNAMD MODE, INDICATED BY 
A PROMPT CHARACTER (ns R>). AT COMMAND mqdE THE QPERATOP MAY ENTEP 
ANy OF SEVFRAL COMMANDS AS DESCRIBED PELOW. 

THE SUPERVISOR CODING FOLLOWS IMMEDIATELY THE DIAGNOSTIC TEST CODING, 
RUT THE SUPERVISOR LISTING HAS BEEN SUPPRESSED FOR GENERAL 
OiSTRlBUTION. A LIMITED DISTRIBUTION HAS BEEN MADE TO FIELD SERVICE 
OF THE SUPERVISOR ASSEMBLY LISTING, AND IT VAY BE CONSULTED IN EVENT 
OF A SOFTWARE PROfLS*^. 

1.1.2 DIAGNOSTIC INFORMATION 

THE RLll/RLVll RLOl EXERCISER IS A PDP-11 (LSI-ll) BASED PROGRAM. IT 
WILL RANDOMLY EXERCISE UP TO 2 CONTROLLERS AND 8 DRIVES. AFTER AN 
INITIAL WRITE OF EACH PLOl^ THE DRIVES ARE RANDOMLY PICKED AND GIVEN A 
RANDOM FUNCTION OF SEEK, GET STATUS, READ HEADER, READ OR wRITE. 

1.2 SYSTE*^ REQUIREMENTS 
1.2.1 HARDWARE REQUIREMENTS 

PDP-ll/LSI-11 PROCESSOR WITH 16^ OR WORE OF MEMORY 
CONSOLE DEVICE (LA30 ,LA36,VTS0,ETC, 1 
RLll/RLVll CONTROLLERCS) 
1 - S RL'H DRIVES 

I - RLOIK CARTRIDGES WITH BAD SECTOR FILE 
KWllP, KWllL (OPTIOMAfJ 
LI NEPR INTER (OPTIONAL) 



1*2.2 SOFTWARE REQUIREMENTS 

CXRLEBO RLll/RLVll RL'^l EXERCISER 
{FOR«.^ERLY MD-11-DZRLE~A ) 
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1.3 RELATED DOCUMENTS AND STANDARDS 

RLOl USERS WANIUL (E K-RLOl-HG-PPE) 
XXOP rjSERS MA^JUAL 

1.4 DIAGNOSTIC HIERARCY PREREQUISTTSS 

THE RLDl SUBSYSTEM SHOULD HAVE SUCCESSFULLY PUN THE FOLLOWING 
PROG RAMS J 

CZRLBAO PLll/RLVll RLOl CONTROLLER TEST (PART 1) 

rZPLBSn RLll/RLVlt RLOl CONTROLLER TEST (PART 2) 

CVRLAAO RLVll RLOl DISKLESS TEST (RLVll ONLV) 

CZRLCBO RLill DRIVE TEST (PART 1) 

CZRLDBO RLGl DRIVE TEST (PART 2) 

1.5 ASSUMPTIONS 

THE HARDWARE OTHER THAN THE RLOl SUBSYSTEM IS ASSUMED TO WORK 
PROPERLY. FALSE ERRORS MAY BE REPORTED IF THE PROCESSOR, ETC., DO NOT 
FUNCTION PROPERLY, 

2.0 OPERATING INSTRUCTIONS 

2.1 HOW TO RON THIS DIAGMOSTIC 
2.1.1 THE SIX STEPS OF EXECUTION 

THIS DIAGNOSTIC SHOULD BE LOADED AND STARTED USING NORMAL XXDP 
PROCEDURES. THS START COMMAND SHOULD NOT SPECIFY AN ADDRESS, BECAUSE 
THE DIAGNOSTIC HAS THE PROPER TRANSFER ADDRESS CODED INTO IT. 

WHEN THIS DIAGNOSTIC IS STARTED, THE FOLLQMTNG STEPS WILL OCCUR*. 

********** 

* STEP 1 ■* 
********** 

A SHORT SERIES OF ''HARDCORE QUESTIONS" WILL BE ASKED; 

QUESTION MEANING 

L-CLK (L) M ? IS THERE AN L-CLOCK? 

P-CLK (L) N ? " " P-CLOCK? 

SO HZ (L) M '> IS THE POWER 5^ CYCLES (AS IN EUROPE)? 

LSI (L) N ? IS MACHINE AN LSI? 

LPT (L) N ? IS THERE A LINE PRINTER? 

MEM (K) (0) 16 ? HOW MANY K OF MEMORY ARE THERE? 

THE DEFAULTS (SHOWN AFTER EACH QUESTION) CAN BE SELECTED RY HITTING 
CARRIAGE RETURN. IT IS POSSIBLE THAT NOT ALL OF THE QUESTIONS WILL BE 
ASKED! FOP EXAMPLE/ IF YOU SAY "YES" TO THE L-CLOCK QUESTION, THE 
P-CLOCK Q'FESTION ^^ILL NOT BE ASKED. 
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IF NF.ITHER P OR L CLOCK ftRE ANSWERED VES THE OPERATOR ¥ILL PE ASKED TO 
TYPE TWO CHARftCTSRS 4 SECONDS APART. 

********** 

* STEP 7 * 
********** 

WHEN YOU RAYE ANSWERED ALL THE HARDCORE QUESTIONS, THE DIAGMOSTIC WILL 
ISSUE THE PROMPT "DS-B>". FROM THIS POINT UNTIL fHE TIME WHEN YOU 
RESTART XXDP^ YOU 'HlLl m TALKING TO THE DIAGNOSTIC, NOT KXDP. WE 
WILL REFER TO THE PRESENCE OF THIS PROMPT AS PEING IN DIAGNOSTIC 
COMMAND WODE, AS OPPOSED TO XXDP COMMAND MODE. 

AT THIS POINT YOU WILL EniER A "START'" COMMAND. THIS IS NOT THE SAMS 
AS THE XXDP "START" COMMAND, WHICH YOU ALREADY ISSUED I ?l RESPONSE TO 
THE VKDP DOT PROMPT. T^IS "START" COMMAND CAM TAKE A NUMBER OF 
SWITCHES AND FLAGS (ALL OPTIONAL) AND THE DETAILS OF THESE ARE SET 
FORTH IN "2.3 DETAILS OF COMMANDS AND SYNTAX". HOWEVER, IN ORDER TO 
USE THE PROGRAM, ALL YOU NEED TO SAY IS SOMETHING LIKE THIS: 

STA/PASS:1/FLAGS'.W0E 

THINGS TO NOTE HERE; 

1. OMLY THE FIRST THREE CHARACTERS OF THIS OR ANY COMMAND AT THE 
"DS-fi>" LEVEL NEED TO BE TYPED. 

2. THE "PASS" SWITCH SPECIFIES HOW MANY PASSES YOU DESIRE, A 
PASS CONSISTS OF RUNNING THE FULL DIAGNOSTIC AGAINST ALL 
UNITS REIl^iG TESTED (THIS WILL BE EXPLAJ^^ED SHORTLY). ONE 
PASS IS SPECIFIED IN THE AHOYE EXAMPLE. 

3. THE "FLAGS" SWITCH MAY SPECIFY ANY OF A WUMBER OF FLAGS, PUT 
THE MAIN USEFUL ONES ARE: 

LOE LOOP ONE ERROR 

HOE HALT ON ERROR 

TER INHIBIT ERROR PRINTOUT 

THE HOE FLAG IS SPSCIFTEO IN THE AROVE EXAMPLE (WE'LL SEE WHV 
SHORTLY). 

********* * 

* STEP * 
********** 

WHEN YOU HAVE TYPED IN A "START" COMMAND, THE DIAGNOSTIC WILL COME 
BACK WITH THE QUESTION "?f UNITS?" TO WHIG" VOU SHOULD RESPOND BY 
TYPING IN THE NUMPEP OF DEVICES YOU WISH TO TEST. 

A WORD OF WARNING HERE: THE NUMBER OF UNITS DEPENDS ON THE TARGET 
DEVICE OF THE DIAGNOSTIC. FOR EXAMPLE, IF THE DIAGNOSTIC IS DIRECTED 
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AT a DTSK nPTVE, THEM THE NUMBER OF QNTTS WOULD PE THF NU^PER OP" 

DRIVKS TO BE TESTED. WHEREAS IF THE DIAGNOSTIC WAS DIRECTED AT THE 

DISK CONTROLLER, THEN THE ^JUmRER OF UNITS WOULD PF THE NU^RER 0^ 

CONTROLLEPS. THE TAR(^ET DEVICE OF A DIAGNOSTIC CA>5 ALWAYS BE 

DETERMINED BY INSPKCTINC THE "HEADER" STATEMENT NEAR THE PECINNING OF 
THE SOURCE CODE. ONE OF THE OPERANDS OF THIS "HEf^DER" STATEMENT 
SHOULD BF THE DEVICE TYPE OF THE DIAGNOSTIC. 



* 
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********* * 

* STEP 4 * 
********* * 

WHEN YOU HAVF TYPED IN THE NUMBER OF UNITS TO BE TESTED* THE 
DIAGNOSTIC WILL vnu THE "HARHWARE QUESTIONS". THE ANSWERS TO 

THESE QUESTIONS ARE USED TO BUILD TABLES IN CORE, CALLED "HARDWARE 
P-TABLES"* ONE HARD&/ARE P-TABLE WILL BE BUILT FOP EACH UNIT TO BE 
TESTED. 

THERE ARE SEVERAL HARD'^ARE QUESTIONS AND THE ENTIRE SERIES WILL BE 
POSED N TIMES/ INHERE N IS THE NUMBER OF UNITS. 

THIS REPRESENTS A NEW PHILOSOPHY IN DIAGNOSTIC ENGIMEERING. 
DIAGNOSTICS IN THE FUTURE WILL NOT BE WRITTEN TO AUTOSIZE OR ASSUME 
STANDARD ADDRESSES; INSTEAD, THEY WILL ASK THE OPERATOR FOP ALL THE 
INFORMATION THEY NEED TO TEST THE DEVICE. 

********** 

* STFP 5 * 
********** 



AFTER YOU HAVE ANSWERED ALL THE HARDWARE QUESTIONS (SEC 2,5) FOR ALL 
THE UNITS, YOU mil BE ASKED "CHANGE SW?" IF YOU WANT TO BE ASKED THE 
SOFTWARE QUESTIONS THAT DETERMINE THE BEHAVIOR OF THIS PROGRAM, TYPE 



"Y". IF YCU WANT TO TAKE ALL THE DEFAULTS TO THESE QUESTIONS, TYPE 
"N". IF YOU TYPE "Y" YOU WILL BE ASKED THE SOFTWARE QUESTIONS (SEC 
2.6), AND THE ANSfe'ERS WILL BE PUT INTO THE SOFTWARE P-TABLE IN THE 
PROGRAM. THE SERIES OF QUESTIONS WILL BE ASKED JUST ONCE, REGARDLESS 
OF THE NUMBER OF UNITS TO PS TESTED. 

********* * 

* STEP 6 * 
********** 

AFTER YOU HAVE ANSWERED THE SOFTWARE QUESTIONS, THE DIAGNOSTIC MILL 
BEGIN TO EXECUTE THE HARDWARE TEST CODE. THERE ARE SEVERAL THINGS 
THAT CAN HAPPEN NE^T, DEPENDING ON WHETHER ^ HARDWARE ERROR IS 
ENCOUNTERED AND ALSC ON I^HAT SWITCH VALUES YOU SELECTED ON THE START 
COMMAND. CONSIDER THE POSSIBILITIES? 

1. IF NO ERROR IS ENCOUNTERED, THEN THE DIAGNOSTIC WILL SIMPLY 
EXECUTE THE DESIRED NUMBER OF PASSES AND RETURN TO COMMAND 
MODE (PROMPT DS-B>). 



Paqe ^ 



2. AN ERRCR IS ENCOUNTERED, THEN ONE OF THREE THTN<:s HftPPENS, 

DEPENDINfC ON THE SETTINGS OF THE HOE AND LOE FLAGS, 

HOE SET*. THE ERROR WILL BE REPORTED ON THE CONSOLE *ND 

THE 01 AGNOSTIC WILL RS*^'"^^ TO COMMAND MODE. 
LOE SET; THE DIAGNOSTIC WILL LdOP ENLESSLV ON THE BLOCK 

OF CODE THAT DETECTED THE ERROR, 
NEITHER HOE NOR LOE SET; THE ERROR MILL RE REPORTED ON 

THE CONSOLE AND NORMAL EXECUTION 'aIILL RESUME 

IS IF NO ERROR HAD OCCUPED. 



2.1.2 SAMPLE RUN-THROUGH 

LET'S SEE HOW 4LL THIS WORKS IN A REAL SITUATION. PECRLL TH\T VIS 
ENTERED THE COMMAMD "STA/PASSf 1/FLAGSI HOE". THIS WOULD PE A VERY 
TYPICAL i>IAV TO RUN THE DIAG^IOSTIC. IF NO ERRORS ARE E f(iCOU?JTERED# THE 
SINGLE REQUESTED PASS WILL BE EXECUTED AND THE PROMPT WILL BE 
REISSUED. 

IF AH ERROR IS ENCOUNTERED, THE ERROR iiiiILL RE REPORTED AND THE PROMPT 
WILL BE REISSUED (BECAUSE THE HOE FLAG IS SET). AT THIS POINT THERE 
ARE FOUR DIFFERENT WAYS YOU CAN GST THE PROGRA^^ GOING AGATNS: 

1. ISSUE ANOTHER "START" COMMAND (THUS GOING THRU ALL OF STEPS 
2, 3, 4, 5, A^JD f AGAIN) 

2. ISSUE A "RESTART" COMMSND (SAME AS START COMMAND EXCEPT THAT 
THE HARDWARE QUESTIONS ARE NOT ASKED) 

;U ISSUE A "CONTINUE" COMMAND (EXECUTION WILL RESUME AT THE 
BEGINNING OF THE PARTICULAR HARDWARE TEST (MOST ni AGNOSTICS 
CONSIST OF A NUHPE^? OF THESE) THAT IT !/«AS IN W"EN THE ERROR 
HALT OCCUPED. NO QUESTIONS ASKED, 

4. ISSUE A "PROCEED" COMMAND: EXECUTION WILL RESU^^E AT THE 
INSTRUCTION F0LL0=4ING THE ERROR REPORT (THIS TS A SPECIAL 
COMMAND AND CAN HE ISSUED ONLY AT A HALT ON ERPOP). 

THE MOST TYPICAL THING TO DO HERE TS TO ISSUE THE PROCEED, RUT WITH 
DIFFERENT FLAG SETTINGS. PROBABLY YOU WOULD WANT TO SAY 

PRO/FLAGS: lER: LOE: HaE=0 
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THIS WILL no THE FOLLOWING: 

1. TflRN ON THg lEP (INHIBIT ERROR PRINTOUT) FLAG 

2. TORN ON THE LOE FLAG 

3. TURN OFF THE HQS FLAG 

4. RESUME EXECUTION AT INSTRUCTION AFTER ERROR REPORT 

THE DIAG^^QSTIC WILL NOW LOOP ON THE BLOCK OF CODE THAT DETECTED A?JO 
REPORTED THE ERROR, PUT NO ERROR PRINTOUT MILL OCCUR. THUS YOU CAN 
STUDY THE ERROR QR SCOPE IT OR WHATEVER. 

WHEN YOU'VE SEEN ENOUGH, YOU MAY HIT CONTROL/C. THIS WILL TAKE YOU 
OUT OF THE LOOP AND PUT YOU BACK INTO CO?'!*' AND MODE. YOU NOW HAVE 
THREE CHOICES: 

1. START 

2. RESTART 

3. continue 

let's say you've repaired the defect found above and k'ant to finish 
running the diagnostic. you would type 

con/flags:hoe:ier=0!LOE=o 

this will restore the flags to their original values and resume 
execution at the beginning of the hardware test you were in. the 
error does not recur, the execution will flow right on thru to the 
next error qr to end of pass. 

if at end of pass you ^ant to run the diagnostic again, you have two 

CHOICES! 

1. START 

2. RESTART 

YOU WOULD CHOOSE ONE, DEPENDING ON WHETHER YOU WANTED TO ANSWER THE 
HARDWARE QUESTIONS AGAIW. 
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THE PRINT-OUT FROM THE ABOlfE OlftLOGUE MIGHT LOOK LIKF THIS: 



.R DZRKXX 
DZRKXX 

L-CLK (L) N ? Y 
50HZ (L) N ? 
LSI (L) N -> 
LPT fL) N ? 
MEM (K) (D) 16 ? 
DS-B>STA/PASS:l /flags: HOE 
# UMITS (D) ? 2 
UNIT 1 
CSR (0) ? 
VECTOR (0) ? 
BR LEVEL (0) ? 
DRIVE (0) ? 
UNIT 2 
CSR (0) 
VECTOR (Q) ? 
BR LEVEL (0) ? 
DRIVE (0) ? 1 
CHANGE SW 



W (L) ? 



DZRKXX HARD ERR 00^04 TST 0)3 SUB 002 pc:004130 
ERR HLT 

DS-B>PR0/FLAGS:I5R JLOE! HOE=0 

************************************************* 

AT THIS POIMT THF, DIAGNOSTIC IS LOOPING ON THE 

ERROR WITHOUT PRINTING SNVTHING. YOn CAN SCOPE 

THE ERROR UNTIL YOU HAVE LOCATED IT, THEN *C OUT 
************************************************* 



BY 

WHOM 

ENTERED; 



D 

D,D 

D 

D 

D 

D 

D,D 
D,0 
P 

0,0 
0,0 

n,o 

D,0 
D 

D,0 

D,0 
D,0 
D,0 
D,0 

D 
D 

0,0 



D S - 8 > C N / F L A G S : H E : I E R : r . E = " 
CHANGE SW (L) ? M 
DZRKXX EQP 1 
DS-P>REST ART/PASS; 1 
CHANGE SW (L) ? n 





C',0 
D,0 

D 

0,0 
D,0 
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2.2 HOW Tn CREATE A CHAINABLE FILE 

THE DIAGNOSTIC AS RECEIffFH FROM RELEASE EMGINEEPING CANNOT PE RUN IN 
CHAIN ^^QPE. THA IS WHY IT PEARS THE EXTENSION "BIN" I^JSTEAD OF "RIC". 
THERE IS A WAV^ HO«EVER^ TO CREATE A CHAINABLE PPDGRAW FROM WHAT 
YOU'VE GOT. 

IT CONSISTS OF RflNNING THE PROGRAM i^ITH THE SPECIAL COMMAND "CCI»' 
ISSUED WHERE YOU WOULt) NORMALLY ISSUE A START COMMAND (TO THE PROMPT 
DS-B>. THIS COMMAND CAUSES THE DIAGNOSTIC TO GO THRU ALL THE 
QUESTIONS AMD ANSWERS AND THEN TO HALT, JUST WHERE IT itlOULD ORDINARILY 
BEGIN EXECUTION OF THE HARDWARE TEST CODE. AT THIS POINT YOU CAN DUMP 
THE PROGRAM AS IT SITS IN CORE TO THE LOAD MEDIUM, WITH THE NEW 
EXTENSION "RIC". 

HERE IS A SAMPLE DIALOGUE TO ACCOMPLISH THIS! 
.R UP02 

RESTART: XXXXX^ 
*CLR 

*lo'ad oiag.bin 

XFER:200 COPE ',0,6060 2 
*START 200 
L-CLK (L) N ? 



DS-B>CCI 

ft UNITS (D.) ? 4 

CHANGS SW (L> ? « 
PTAB END; 60 632 

************************************* 

*AT THIS POINT THE MACHINE HALTS AND* 

♦YOU MUST RESTART AT ADDRESS XXXXXX* 
************************************* 

^HICORE 60632 
CORE; 0,60632 
*DUMP DKHi DIAG.RTC 

THE RESULT OF DOING THIS IS THAT YOU CAN NO'^f PUTLD AN XXD^^ CHAIN FILE 
CONTAINING THE XXDP COMMAND 

.R DIAG. BIC 

AND THE DIAGNOSTIC ''FILL EXECUTE WITHOUT MANUAL IMTERVS NTION, USING THE 
ANSWERS THAT YOU GAVE IT WHEN YOU DID THE CCI COMMAND, 
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2,3 DETAILS OF COM!^ANnS AND SYNTAX 
2.3.1 TABLE OF COMMAND VALIDITY 

THERE ARE FOUR MAYS OF ENTEPISf*? DIAHNOSTIC COMMAND MODE, AND DIFFERENT 
__ _ AVAILABLE WITH EACH: 



SUBSETS OF THE DTAG COMMAND SET 

HOW ENTERED 
1. OPERATOR ENTERED 'PUN DIAG 



2. 



3. 



4. 



DIAGNOSTIC HAS FINISHED ALL 
ITS REQl'ESTSD PASSED 



OPERATOR INTERRUPTED THE 
DIAGNOSTIC *IITH CTRL/C 



AN ERROR WAS ENCOUNTERED 
WITH THE HOE FLAG SET SET 



LEGAL COMMANDS 

START 

PRINT 

DISPLAY 

FLAGS 

ZFLAGS 

ST ART 

RESTART 

PRINT 

DISPLAY 

FLAGS 

ZFLAGS 

START 

RESTART 

CONTINUE 

PRINT 

DISPLAY 

FLAGS 

ZFLAGS 

START 

RESTART 

CONTINUE 

PROCEED 

PRINT 

DISPLAY 

FLAGS 

ZFLAGS 



2.3.2 COMMAND SYNTAX 

******************** *****************jlr**************^ 

ST A(RT)/ TESTS; TEST-LI ST/PASSJPASS-CNT/FLAGS 5 FLAG-LIST/EOPlEOP-I NCR 
****************************************************************** 

THE DIAGNOSTIC IN CQRF IS EXECUTED IN ACCORDANCE WITH THE SWITCHES 
SPECIFIED. THE MESSAGE "8 UNITS?" IS PRINTED. THE START COMMAND MAY 
BE ISSUED >('HFN DIAGMOSTIC COMMAND MODE HAS BEE^ ENTERED VTA ONE OF THE 
FOLLOWING; A) OPERATOR TYPED "RUN DIAGNOSTIC" B) DIAGNOSTIC FINISHED 
EXECUTING C) ERROR '^AS ENCOUMTERED WITH HOE FLAG SET D) OPERATOR 
ENTERED CONTROL/C. 
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AFTER THE OPERATOR RESPONDS TO OMITS'>*V THE HARDWARE DIALOGUE IS 
INITIATED. WHEN IT IS COMPLETED, THE QUESTIONS "CHftNGE SW?" IS 
ISSUED, AND THE ANSitfEPS/ IF GIVEN, BECOME THE NEW DEFAULTS, THEREFORE 
IT IS NECESSARY TO RELOAD THE PROCRAH IN ORDER TO RETURN TO THE LOAD 
DEFAULTS. 

THE SWITCH ARGUMENTS ARE AS FOLLOWS: 

"TEST-LIST" IS A SEQUENCE OP DECIMAL NUMBERS (1:2 ETC.) OR RANGES OF 
DECIMAL NUMBERS (1-5:8-13 ETC.) THAT SPECIFY THE TESTS TO BE EXECUTED. 
THE NUMRERS ARE SEPARATED BY COLONS. THE NUMBERS RAMGE FROM 1 TO THE 
LARGEST TEST NUMBER IN THE DIAGNOSTIC. THEY m.Y RE SPECIFIED IN ANY 
ORDER. TESTS WILL RE EXECUTED IN NUMRERICAL ORDER REGARDLESS OF THE 
ORDER OF SPECIFICATION. THE DEFAULT IS TO EXECUTE ALL TESTS. 

"PASS-CNT" IS A DECIMAL f^UMBER INDICATING fHE DESIRED NUMBER OF 
PASSES. A PASS IS DEFINED AS THE EXECUTION OF THE FULL DIAGNOSTIC 
(ALL SELECTED TESTS) AGAINST ALL UNITS SUMBITTED. THE DEFAULT IS 
NOM-ENDING EXECUTION,. R "FLAG-LIST" IS A SEQUENCE OF ELEHENTS OF THE 
FORM <FLAG>, <FLAG=1>, OR <PLAG=0>, SEPARATED BY COLONS, WHERE <FLAG> 
HAS ONE OF THE FOLLOWING VALUES: 

HOE HALT ON ERROR, CAUSING COMMAND MODE TO BE ENTERED WHEN AN 

ERROR IS ENCOUNTERED 
LOE LOOP ON ERROR, CAUSING THE DIAGNOSTIC TO LOOP CONTINUOUSLY 

WITHIN THE SMALLEST DEFINED BLOCK OF CODING (SEGMENT, 

SUBTEST, OR TEST) CONTAINING THE ERROR 
lES INHIBIT ERROR REPORTING 

IBE INHIBIT BASIC ERROR REPORTS 

IXE INHIBIT EXTENDED ERROR REPORTS 

PRI DIRECT ALL MESSAGES TO A LINE PRINTER 

PNT PRINT NUMBER CF TES BEING EXECUTED 

BOE BELL ON ERROR 

UAM RUN IN UNATTENDED MODE, BYPASSING MANUAL INTERVENTION TESTS 

ISR INHIBIT STATISTICAL PEPORTS 

IDU INHIBIT DROPPING OF UNITS BY DIAGNOSTIC 
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THE FLAGS NAMED OR SO^^TED TO 1 ARE SET^ THOSE EQUATE.D TO APE 

CLEARED. A FLAG NOT SPECIFIED IS CLEARED. IF THE FLAGS SWITCH IS NOT 
GIVEM ALL FLAGS ARE CLEARED* 

^«E0P«.INCR^^ IS A DECIMAL UmWEP. TMDICATIfIG HOM OFTEM (IN TERMS OF 

PASSES) IT IS DESIRED THAT THE END OF PASS MESSAGE BE PRINTED* THE 
DEFAULT IS AT THE END OF E¥ER¥ PASS* 



if Ik Ik ft ^ -k iir ie ii f( Ik ic ik it iic ic fri^ ic ir ^ i( ^ ir ik f( it ie -k fr 

-LIST 

f it ie it ft -k it -k ^ 



RES< TAR T) /TSSTlTEST«»LI ST/PA SSI PASS--CNT/f LAGS SFLAG--LIST/EOPSEOP-- 1 MCR/UNITS?UNIT«-[ 

•k^'kfsitit^^ititir'kit^^iticftit^^it^igitititit^^itititftitie^-kikitikititi^ 



THE DIAGNOSTIC 1^1 CORE IS EXECUTED IM ACCORDANCE WITH THE SWITCHES 
SPECIFIED^ HOi^EVER^ NEW POTABLES ARE !^0T BUILT* INSTEAD^ THE ONES IN 
CORE ARE USED« 

THE QUESTION "CHANGE SW?'^ IS ASKEO^ AND THE ANSERS IF GIVEN BEGONE THE 
NEW DEFUTLTS« THE COI^HAND y^Y BE ISSUED MHEN COHAND ^ODE HAS BEEN 
ENTERED VIA A) DIAGNOSTIC IS FINISHED B) HALT ON ERROR C) CONTROL/C, 

THE Sf^ITCH ARGUMENTS ARE AS IN THE START COMMAND EXCEPTS 

1. '^JNIT-LIST'^ IS A SEQUENCE OF LOGICAL UNIT NUHPERS RANGING 
FROM 1 THRU N (N = NUMBER OF UNITS BEING TESTED) SPECIFYING 
^HICH UNITS ARE TO BE TESTED. THE LOGICAL UNIT NUMBER 
DESIGNATES THE POSITION OF THE P-TABLE IN CORE^ ACCORDING TO 
THE ORDER IN iHICH THEY WERE BUILT* THE UNITS SPECIFIED MUST 
NOT HAVE BEEN DROPPED BY THE OPERATOR PROP COMMAND* THE 
UNIT«»LIST DEFAULTS TO ^^ALL THAT HAVE NOT BEEN DROPPED BY 
OPERATOR COMMAND''* THE EFFECT OF THE UNIT-LIST LASTS UNTIL 
THE NEXT START (WHERE IT IS AUTOMATICALLY RESET TO 'rALL") OR 
THE NEXT RESTART* 

2. ALL UNSPECIFIED FLAG SETTINGS ARE UNCHANGED. 



CONCTINUE )/ PA SSKP AS S«-C NT/FLAGS l<J='LAG«LIST> 

COMMAND MODE MUST HAVE BEEN ENTERED DOE TO A HALT ON ERROR OR A 
CONTROL/C* THE EFFECT OF THE COMMAND IS TO GO TO THE BEGINNING OF THE 
TEST THAT WAS BEING EXECUTED WHEN THE HALT OR CONTROL/C TOOK PLACE* 
SOFTWARE DIALOGUE ^AY OPTIONALLY BE REEXECUTED* HARDWARE PARAMETERS 
MAY NOT BE CHANGED* 

THE SWITCH ARGUMENTS ARE AS IM THE START COMNAND EXCEPTi 

1. DEFALT FOR PASS«-CNT IS THE UNSATISFIED PASS-CNT FROM THE 
PREVIOUS START OR RESTART 

2. UNSPECIFIED FLAG SETTINGS ARE UNCHANGED 
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*5fc* ************ 

PR0{CEED1/FLAGSS<FLAG-LIST> 
*************************** 

COMMAND MODE MUST HAVE PFEN ENTERED VIA A HALT ON EPPOP. THE EFFECT 
OF THE COMMAND IS TO PEGIM EXECUTION AT THE LOCATION FOLLOWING THE 
ERROR CALL. NEITHER HARDWARE NOR SOFTWARE PARAMETERS MAY BE ALTERED. 

THE SWITCH ARGUMENTS ARE THE SAME AS THE START COMMAND EXCEPTS 

1. UNSPECIFIEn FLAG SETTINGS ARE UNCHANGED 



************************************************************* 

CCI/TSST: TEST-LTST/PASS;PASS"CNT/FLAGS:FLAG-LIST/E0PIE0P-INCR 
************************************************************* 

THE DIAGNOSTIC EXECrJTES THRU fiLL OPERATOR DIALOGUE AND HALTS AT THE 
HARD'^ARE TEST CODE. NOW THE OPERATOR CAM DUHP THE CORF IMAGE TO THE 
MEDIUM '^ITH A BIC EXTENSION. 

THE RIC FILE MUST PE HANDLED DIFFERENTLY DEPENDING ON WHETHER IT IS 
RUN MANUALLY OP IN CHAIN MODE. IF RUN MANUALLY IT CAN BE INVOKED 
EITHER WITH A "START" (IN WMICH CASE IT WILL PEHAYE LIKE THE BIN FILE: 
THE PRE-GENERATED ANSWERS TO OPERATOR QUESTIONS WILL RE IGNORED) OR 
WITH A "RESTART" (IN WHICH CASE THE PRE-GEMSR ATED OPERATOR ANSWERS 
WILL HE USED), 

IF prfN IN CHAIN MODS^ AUTOMATIC EXECUTION '^ILL COMI^ENCE IMMEDIATELY 
FROM THE XXDP COMMAND ".P DIAG". THE COMMAND PROMPT '•DS-B>«» WILL NOT 
BE ISSUED. 

ANY SWITCHES SPECIFIED ON THE CCI COMVftND WILL CARRY 0¥ER «HEN THE BIC 
FILE IS RUN IN CHAIN MODE (EXCEPT THAT UAM IS ALWAYS SET THERE) PUT 
WILL NOT CARRY OVER WHEN IT IS RUN "ANUALLY. 

TO DO A CCI ON A FULL SIZED DIAGNOSTIC (14. 5K WORDS)^ A ^aCHTNE SIZE 
LARGER THAN 16K IS REQUIRED. THE EXACT SIZE NEEDED DEPENDS ON WHICH 
UTILITY IS USED TO EXECUTE THE DIAGNOSTIC AT CCI TIME. 

********************** 

DROfP) /UN ITS '.UNIT-LIST 
********************** 

THE UNITS SPECIFIED ARE DROPPED FROM TESTING UNTIL THEY ARE ADDED BAGS' 
OR UNTIL A START COMMAND IS GIVEN. A DROP CANNOT BE FOLLOWED BY A 
PROCEED. 

THERE IS ALSO A "DROP" MACRO INTERNAL TO THE DIAGNOSTIC, WHICH GIVES 
THE FACILITY OF 4UT0-DR0PPING. THE DURATION OF I PROGRAM DROP, 
H0WE\fSR, IS ONLY UNTIL THE NEXT START OR RESTART. 
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******************* 

ADD/ONITSiUNIT-LTST 
******************* 

THE UNITS SPECIFIED ARE ADDED RACK (THEY M"ST HAVE BFEN PREVIOUSLY 
DROPPED RV THE DROP COMMAND) TO THE TEST SEGUENCF.. AN »DD CANNOT BE 
FOLLOWED BY A PROCEED. 

******* 

PRI(NT) 
******* 

ALL STATISTICS TABLES ACCUMULATED BY THE DIAGNOSTIC APE PPI^iTED, THE 
ISP (TNHTRIT STATISTICAL REPORTING) FLAG IS CLEARED. 

*************************** 

D I S ( PL A Y ) / U N I TS J <0 NI T-L I ST> 
*************************** 

THE HARDWARE P-TABLES FOR ALL UNITS UNDER TEST APE PRINTED OUT IN THE 
FORMAT IN WHICH THEY WEPE ENTERED. 6*1Y UMTTS THAT '«^ERE DROPPED BY THE 
OPERATOR "DROP" COMMAND ARE SO DESIGNATED. 

******* 

FLA(GS) 
******* 

THE CUPREN'T SETTINGS OF ALL FLAGS ARE PRINTED. 

******** 

ZFL< AGS) 
******** 

ALL FLAGS ARE CLEARED. 



2.4 EXTENDED P-TA8LE DIALOGUE 

THE FULL CAPABILITY OF THE HARDWARE DIALOGUE IS REVEALED BY THE 
FOLLOWING DISCUSSION OF WHAT HAPPENS INTERNALLY. 

AS SOON AS THE QUESTION "# UNITS?" IS ANSWERED (WITH thf NUMRER N, 
SAY) SPACE IN CORE IS ALLOCATED FOP N P-TABLFS. ALL OF THE P-TABLES 
ARE OF THE SAME FORMAT, AND THERE IS J ONE-TO-ONE cnpPESPONDENCE 
BETWEEN THE HARDWARE PARAMETER QUESTIONS AND THE SLOTS IN THE P-TABLE 
FORMAT. 



Paae 17 



ON THE FIRST TRIP THRU THE QUESTIONS, ALL OF THE SLOTS IM ALL OF THE 
P-TABLES ARE FILLED. IF THE OPERATOR TYPES IN LESS THAN H EXPLICIT 
VALUES IN RESPONSE TO A PARTICULAR QUESTION^ THESE VALUES ARE PLACED 
IN THE P-TABLES (ONE VALUE GOING INTO THE PROPER SLOT OF EACH P-TAPLS 
BEGINNING WITH THE FIRST P-TABLE) UNTIL THE STRING 0'=' VALUES IS 
EXHAUSTED. THE LAST VALUE THAT SLOT IN THE REMAINING P-TABLES. 

ON SUBSEQUENT TRIPS THRU THE QUESTIONS, THE SAME PROCESS IS CARRIED 
OUT, EXCEPT THAT THE EARLIEST P-TABLE NOT TO HAVE RECEIVED AN EXPLICIT 
VALUE IN ANY OF ITS SLOTS NOW ASSUMES THE ROLE THAT TAPLF NUMBER ONE 
PLAYED IN THE FIRST TRIP, 

THE SERIES OF QUESTIONS IS REISSUED UNTIL AT LEAST ONE QUESTION HAS 
RECEIVED N EXPLICIT VALUES PROM THE OPERATOR* 

IN GIVING A STRING OF VALUES, COMMAS WITHOUT INTERVEWHG VALUES MAY BE 
USED TO INDICATE A REPETITION OF THE LAST NAMED VALUE, 

A STRING OF VALUES MAY PE GIVEN AS A RANGE (6-10 FOR EXAMPLE). IF THE 
VALUES REPRESENT PURE NUMERICAL DATA, THIS SAMPLE RA^^GE TRANLATSS TO 
THE STRING 6,1,^^.9^10 (AN INCREMENT OF 1). IF THE VALUES ARE 
ADDRESSES, THE SAMPLE RANGE TRANSLATES TO THE STRING 6^8,10 (AN 
INCREMENT OF 2). 

HOM LET US SEE HOW s^E COULD USE THESE CAPABILITIES TO CONSTRUCT A SET 
OF P-TABLES. ASSUME THAT WS HAVE 64 UNITS, AND THAT THERE ARE THREE 
HARDWARE PARAMETERS FOR EACH (THREE SLOTS IN THE P-TABLE, THREE 
HARDWARE QUESTIONS IN THE DIALOGUE), LET THE DESIRED VALUE FOR THE 
FIRST PARAMETER BE THE NUMBER 75 FOR ALL 64 TABLES, LET THE DESIRED 
VALUE P-OR THE SECOND PARAMETER BE EQUAL TO THE UNIT NUMBER 
(1,2,3, .. .,64) EXCEPT FOR UNIT 50, WHICH SOULD RECEIVE THE VALUE 49, 
LET THE DESIRED VALUE FOR THE THIRD PARAMETER BE THE NUMBER 76 FOR THE 
FIRST 20 UNITS AND THE MUMPER 77 FOR THE LAST 44 UNITS. 

THE FQLLO'^ING DIALOGUE MOULD ACCOMPLISH THIS GOALl 

# UNITS (D) ? 64 

UNIT 1 

<QUESTIOM l> -> 15 
<GUESTION 2> ? 1-20 
<QUESTION 3> ? 76 

UNIT 21 

<QUESTION 1> ^ 

<QUeSTION 2> ? 21-49, ,51-64 

<QUESTION 3> ? 77 



THE FIRST TIME THE SERIES IS SLOT ONE RECEIVES A 75 IM ALL 64 

TABLES. SLOT TWO RECEIVES THE VALUES 1,2,3,, ..,20 IN TABLES 1 THRU 20 

AND A CONSTANT 20 IH TABLES 21 THRU 64. SLOT THREE RECEIVES A 
CONSTANT 76 IN ALL 64 TABLES. 



THE SECOND TIME THRU THE SERIES 
BE AFFECTED (NOTE THAT THIS 
THE OPERATOR IN THE FORM "nMIT 
QUESTION 1 IS RESPONDED TO RY A 
IN TABLES 21 THRU 64, SINCE NO 
TWO GETS THE VALUES 21,22,23,.. 
49 m SLOT 50, AMD GETS THE V 
64. SLOT THREE GETS THE VALUE 



, TARLES 21 THRU THE END APE COING TO 
PIECE OF INFORWATICN IS PPI^ITED OUT FOR 
XX" AT THE BEGINNING OF EACH SERIES), 
<CR>, SO SLOT ONE STAYS A CONSTANT 75 
NSW SXLICIT VALUES ARE TYPED IN. SLOT 
.,49 IN TABLES 21 THRU 49, AND GETS A 
AUJES 51, 52,53, ...,64 IN TABLES 51 THRU 
77 IN TABLES 21 THRU 64. 



THE DIALOGUE IS TERMINATED WHEN THE SOFTWARE PEC0G*^I7ES THAT 64 
EXPLICIT VALUES HAVE BEEN GIVEN FOR AT LEAST ON QUESTION (NAMELY 
QUESTION 2). 

2.5 HARDWARE PARAMETERS 

THE FOLLOWING QUESTIONS «ILL 3E ASKED ON A START COMMAND. THE VALUE 
LOCATED TO THE LEFT OF THE QUESTION MARK IS THE DEFAULT VALUE THAT 
WILL RE TAKEN ON A CARRIAGE RETURN PESPONCE. 



RLll (L) Y? 

ANSWER YE3(Y) IF YOU HAVE AN RLll CONTROLLER, NO(N) IF 
RLVll CONTROLLER. 

BUS ADDRESS (0) 174400? 

ANSWER K'lTH THE PUS ADDRESS OF THE CONTROLLER, 
VECTOR (0) 330? 

ANSWER MITH THE INTERRUPT VECTOR OF THE CONTROLLER. 
BR LEVEL (0) 5? 

ANSWER MITH THE INTEPPUPT PRIORITY OF THE CONTRCLLFP. 
DRIVE CO) 0? 

ANSWER WITH THE DRTVE(S) CONNECTED TO THE CONTROLLER. 



VOU HAVE AN 



2.6 SOFTWARE PARAMETERS 

THE s-QLLOWING QUESTIONS ARE ASKED IF REQUESTED ON A START, RESTART, OR 
CONTINUE. THEY ALLOW FLEXABILITY IN THE WAY THE PROGRAM BEMAVES. THE 
SOFTWARE PARAMETERS GIVE THE PROGRAM FLEXIBILITY IN THE WAY IT RUNS. 
THE PARAMETERS CAN BE MODIFIED ON A START, RESTART, OP CONTINUE BY 
ANSWERING (Y)ES TO THE FOLLOWING QUESTION; 



Paae 19 



CHANGE S.W. ? 

A YES ANSWER WILL ASK THE FOLLOWING SOFTWARE PAPA METER OUFSTIONS, WITH 
THE PRESENT DEFAULT ?ALUE PRINTED TO THE LEFT OF THE QUESTION MARK. 
(THE LAST ANSWER GIVEN IS THE DEFAULT) THE DEFAULT IS TAKEN ON A <CR>. 
CONTROL 7. (Z) WILL DEFAULT ALL REMAINIMC QUESTIONS AND START THE TEST. 

RETRY LMT X? 

THIS IS THE NUMBER OF TIMES THE PROGRAM WILL ATTEMPT A COMMAND BEFORE 
IT QUITS AWD REPORTS A HARD ERROR. IF THE RETRY IS SUCCESSFUL BEFORE 
THE RETRY LIMIT IS EXCEEDED IT WILL PRINT AND LOG A SOFT ERROR. 

LIMITS - 65,535 
SEEK RETRY LMT X? 

THIS IS THE NUMBER OF RFTRY3 THAT WILL RE ATTEMPTED TO SEEK TO A 
CYLINDER ON A MIS-SEEK, AFTER RETRY IS EXHAUSTED, WE WILL NOT TRY FOP 
THAT CYLINDER BUT CONTINUE WITH A NSW CYLINDER. 

LIMITS - 65^535 
DATA DMP ON DCK ERR X? 

GIVES THE ABILITY TO SEE THE 1 SECTOR BUFFER THAT HAD A DATA CRC 
ERROR. THE RESULTS OF THE PRINTOUT ARE ONE OF TWO ROSS IB ILT lES . 

1. ONLY THOSE WORDS OF THE SECTOR THAT WERE BAD ARE PRINTED WITH 
WHAT WAS SXPECTBD, 

2. tF ONE OF THE 1ST TWO WORDS IS PAD (USED TO KEY) THE ENTIRE 
BUFFER IS DUMPED. 

LIMITS Y OR N 

f OF ERR DUMPED 

THIS IS THE NUMBER OF MTSCOMPARES THAT WILL BE PRINTED. 
LIMITS - 12B 

TIME BETW REPORTS («IN) X? 

THIS IS THE INTERNAL BETWEEN AUTOMATIC STATISTIC REPORTS ON ALL DRIVES 
IF A CLOCK IS PRESENT AND WAS ANSWERED SO IN THE INITIAL DIALOG. 

LIMITS 1 - 65^535 
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DROP DR ON SPR LMTS PEACHED \'> 

GIVES THE ABILITY TO AUTOMATICALLY STOP TESTING ON A DRIVE ONCE ONE OF 
THE ERROR LIMITS HAVE BEEM EXCEEDED (SEEK, DRIVE, HARD, SOFT), IF THE 
ANSWER IS YES THEN THE FOLLOWING FOUR QUESTIONS WILL BE ASKED, IF NO 
THEN THE NEXT QUESTION WILL BE 2.3.13.11. 

LIMITS Y OR N 
HRD ERR LMT X? 

THIS IS THE LIMIT OF HARD ERRORS THAT A DRIVE *^ILL BE DROPPED ON. A 
HARD ERROR IS ONE ON WHICH THE RETRY HAS BEEN EXHAUSTED. 

LIMITS 1 - 65,535 
SFT ERR L'-fT X? 

THIS IS THE LIMIT OF SOFT ERRORS THAT A DRIVE WILL RF DROPPED ON. A 
SOFT ERROR IS AM ERROR ON AN OPERATION THAT WAS SUCCESSEHL WITHIN THE 
RETRY LIMIT. 

LIMITS 1 - 65,535 
DATA MTSCOHPARE LIMIT X'> 

THIS IS THE LIMIT OF IN CORE MISCOMPARES THAT THE DRIVE WILL BE 
DROPPED ON. 

LIMITS 1 - 65,535 
SK ERR LMT X? 

THIS IS THE LIMIT O^ mis-SBEK AND TRACKING ERRORS THAT A npivE WILL BE 
DROPPED ON 

LIMITS 1 - 65,535 
DR ERR LMT X? 

THIS IS THE LIMIT OF DRIVE ERRORS THAT A DRIVE WILL BE DROPPED ON. 
LIMITS 1 - 65,535 

DROP DR ON OPER LMTS REACHED X? 

GIVES THE ABILITY TO STOP TESTING OH A DRIVE THAT HAS EXCEEDED CERTAIN 
OPERATION LIMITS (SEEK, BITS TRANSFERRED). THE DRIVE WILL BE DROPPED 
ONLY w^EN ROTH HAVE BEEN EXCEEDED, IF THE ANSWER IS YES THEN THE NEXT 



Page 21 



TWO QUESTIONS WILL RE HSrED. 
LIMITS Y OR N 

DATA XFER LMT (*10(1C)) X? 

THIS IS THE LIMIT OF COMBINED PITS RSAD/WRITTEN (*iO(ie)) ON WHICH THE 
DRIVE WILL BE DROPPED. 



SK LMT (♦10(3)) X'> 

THIS IS THE LIMIT OF SEEK OPERATIONS (*10(3)) ON WHICH THE DRIVE WILL 
BE DROPPED. 



DO YOU WANT TO CHANGE SEEK, R/M PARAMETERS X? 

THE NORMAL OPERATION IS TO SEEK AND TRANSFER ON THE ENTIRE CARTRIDGE, 
CYLINDERS - 255, SECTORS - 39 AND BOTH SURFACES. THE NORMAL 
TRANSFER IS RANDOM RET^EEN 3 AND 1280 WORDS. 

THE NEXT B PARAMETERS WILL ALLOW THE USER TO CONFINE THE TESTING TO 
ANY CONTIGUOUS SECTION THE CARTRIDGE AND CONTROL THE SI7.E OF THE 

TRANSFERS. 

A YES ANSWER WILL ASK THE NEXT 13 QUESTIONS. 



STIPULATE R/W XFER SIZE X? 

THE PROGRAM WILL NORMALLY MAXIMIZE THE TRANSFER SIZE BY USING ALL OF 
MEMORY i<28K) AVAILAPLE. THIS QUESTION IF ANSWERED YES VJILL RESTRICT 
THE BUFFER TO THOSE VALUES GIVEN IN NEXT TWO QUESTIONS. QUESTION IS 
2.3.13.19. 



LIMITS 1 - 



65,535 



LIMITS I - 65,535 



(*1C(3)) 



LI'^ITS Y OR N 



MAX XFER X? 



REPRESENTS THE MAXIMUM 4 MOUNT OP WORDS TO READ OR WRITE 



LIMITS 3 



5120 



MIN XFER X? 

REPRESENTS THE MINIMUM AMOUNT OF WORDS TO READ OR VIRITE 



LIMITS 3 - 5120 



RD ONLY X? 

GIVES THP; ftRlLTTY TQ INHIPIT WRITING THE PACK WHILE TESTING, THE 
INITIAL WRITE OF THE PACK FROM THE <?TftPT COM!^AND WILL STILL OCCUR, 

LIMITS Y OR n 

RAN PAT X? 

NORMAL OPERATION SHOULD BE VES, RUT THIS PARAMETER WILL ALLOW THS 
WRITING OF ONLY ONE PATTERN OF EIGHT KORWAL PATTERNS. THE PATTERNS IN 
NEXT QUESTION. 

LIMITS Y OR n 
WHICH ONE X? 

IT IS NOW POSSIBLE TO CONTAIN THE EXERCISER IN' VPITING ONLY OME OF THE 
FOLLOWING EIGHT PATTERNS: 

n - ALL 'S 

1 - 177777, 172'777, 177777,52525,52525,52525 

17 7777, 177777,52525,525^5,171777; 52525 
17 7252,177252,172765,172765 

2 - 0,0,0,177777,177777,177777 

:^/J<^|!j7|77, 177777, 0,1 77777,0, 177777 

1 - 2^252,52525, 52525,125252, 125252, 125252 

52525,5 2525,125252,125252,52525,125252 

52525,12525 2,52525,125 252 
4 - 155555,133333,66666,155555,133333,66666 

155555,133333,66666,15555^,133333,66666 

155555,133333,6666 6,155555 

- - imihimvMhm\Mm%im' 

2213 2,11055,104426,42213 

6 - ALL I'S 

7 - 45513,122645,151322,64551,132264,55132 

26 455,113226,45513,122645,151322,64551 
1322 64,55132,26 455,113226 

LIMITS 0-7 

WR CHK" yo 

DO YOfJ WISH TO PFRFORM A WRITE CHECK AFTER EACH WRITE OPERATION 
LIMITS Y OR N 
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WORDS PER SECTOR COMPARED ON READ X? 

NORMAL TRANSFERS APE RANDOM BETWEEN 3 AND 1280 WORDS/ THIS PARAMETER 
HILL ALLOW YOU TO SPECIFY HOW MANY WORDS SHOULD BE COMPARED PER SECTOR 
IN CORE AFTER EACH READ. THE VALUE SPECIFIED IS GREATER THAN THAT 

READ IN ONLY THE NUMBER READ IN APE COMPARED. THE FEWER WORDS 
COMPARED m CORE ON EACH READ THE FASTER THROUGHPUT THE EXERCISER WILL 
HAVE. 

LIMITS - 128 
# OF DATA ERR RPT'D PER BUF X? 

THIS PARAMETER WILL LIMIT THE NUMBER OF IN COPE MISCOMPARES PRINTED. 
THE PROGRAM WILL CONTINUE TO COMPARE AS MANY WORDS AS SPECIFIED RUT 
WILL INHIBIT THE PRINTOUT ONCE THIS LIMIT IS PEACHED. AFTER ALL WORDS 
ARE CHECKED A SUMMARY WILL BE PRINTED! 

X ^OROS BAD OUT OF 12B WORDS READ 

LIMITS - 126 

MAX HO X"? 

REPRESENTS MAXIMUM HEAD TO TfSE IN SEEK OPERATIONS. 
LIMITS 0-1 

MIN HD X? 

REPRESENTS MINIMUM HEAD TO USE IN SEEK OPERATIONS 
LIMITS 0-1 

MAX CYL X? 

MAXIMUM INMER CYLTNDFP TO BE USED IN SEEK OPERATIONS. 
LIMITS - 255 

MIN CYL X'' 

MINIMUM OUTER CYLINDER TO BE USED IN SEEK OPERATIONS, 
LIMITS - 255 

MAX SEC X? 

MAXIMUM SECTOR TO START TRANSFER ON 
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LIMITS - 39 

MIN SEC X? 

MINIMUM SECTOR TO START TRAMSFER ON 
LIMITS - 39 

AFTER ANSWERING THE LAST SOPTWAPE PARAMETER THE PROGRAM WILL START THE 
TESTI^JG. 

CHK DRDY X? 

ON START OP IF THIS QHESTIOM IS ANSWERED YES THE PROGRAM viLL NOT TEST 
ANY DRIVES THAT 00 NOT HAVE DRIVE READY HIGH. 

LIMITS V OR N 

3.0 ERROR INFORMATION 

ALL ERRORS ARE PRINTED VIA CONSOLE DEVICE. THE ERROR INCLUDES ERROR 
NUMBER^ TYPE kHd PROGRAM LOCATION. ERRORS INCLUDE REGISTERS BEFORE 
AND AT ERROR WITH RSLEVENT DATA, 

3.1 ERROR REPORTING 

THE FOLLOWING ARE ERROR HEADINGS THAT MAY 8E ENCOUNTERED fe'HILE 
RUNNING. A BRIEF DESCRIPTION IS GIVEN. 

SET ERROR 

AN ERROR '^AS DISCOVERED, BUT ON RETRY THE ERROR DID NOT PERSIST. INFO 
GIVEN IS E^ROP/ RLCS, RLRA^ AND RLDA 

EXH'D RETRY ON SEEK 

THE NUMBER OF RETRIES GTVE^ HAVE FAILED TO POSITION DRIVE TO THE GIVEN 
TRACK. INFO GIVEN IS RLCS/RLDA^RLRA, LAST POSITION, PRESENT POSITION/ 
AND DRIVE STATUS 

VOL CHK WILL NOT RESET 

A DRIVE RESET WILL NOT RESET VOLUME CHECK BIT 
DR DID NOT RECR FROM PWR OP 

DRIVE DID NOT COME BACK TIP AFTER A POWER FAILURE 
DATA DMp ~ DATA CHECK/G ARRBLED DATA 

THE PROGRAM ENCOUNTERED A DATA CHECK ERROR BUT WAS UNAPLE TO MAKE 
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SENSE OUT OF THE PIPST TWO WORDS, S^HICH APE USED TO KEY OFF OF. 
THEREFORE ALL WORDS OF SFCTOR ARE DAMPED, (REFER TO SFCTIOM 2»3.13,21) 

LIMITS EXCEEDED! HIGH - X LOW - V 

ANSWER GTVE'J IS NOT sdlTHIN LIMITS FOR QUESTION. 

NO DEFAULT PROVIDED' 

CANNOT <CR> TO THIS QUESTION 

ILLEGAL COMMAND 

START, RESTART, CONTINUE, PRINT TVPED IN '»fRONG FORM 
ILL ENTRY IN P-TA^LE 

ANSWERS IN HARDWARE SECTION ARE NOT LEGAL I.E. MOPE THAN TWO 
CONTROLLERS 

VECTORS FOR A CONTROLLER NOT CONSISTANT 
MORE THAN TssfO VECTORS, 

CAN'T READ FACTORY RAD SECTOR FILE 

PROGRAM IS UNABLE TO RE 6 ANY OF THE FACTORY FILES 
CAN'T READ FIELD BAD SECTOR FILE 

PROGRAM IS UNABLE TO READ ANY OF THE FIELD FILES 
RL01K HAS MORE THAN PAD SECTORS 

PROGRAM LIMITS EXERCISING CARTRIDGES TO THOSE WITH LESS THAN 16 RAD 
SECTORS. 

NO DRIVES ENTERED 

EITHER NO DRIVES WERE ENTERED OR ALL DRIVES THAT WERE ENTERED MERE 
DROPPED FOP ORE REASON OR ANOTHER, THE PROGRAM WILL LOOP AFTER 
PRINTING THE ERROR, WAITING FOR C, A START COMMAND IS NOW NECESSARY. 

DRV NOT RDY W/0 DRV ERR 

ON COMPLETION OF A COMMAND, DRIVE READY IS CHECKED FOP A POSSIBLE 
DRIFT TRACKING PROBLEM. IF THERE IS NO DRIVE PEADY A GET STATUS IS 
DONE TO VERIFY THAT THE DRIVE IS NOT IN PROCESS OF SEEKING. IF IT IS 
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SEEKING THE CONDITION IS LEGAL, THIS TYPEOUT IMPLIES THERE WERE NO 
DRIVE ERRORS WHICH MAY HAVE CAUSED DRIVE READY TO GO AWAY. 

TRCK EPR 

THIS SRROR MEANS THAT THE DRIVE IS NO LONGER ON THP, TRACK m ><^ERE ON 
FOR THE LAST READ HEADER PERFORMED. EACH SEEK IS VERIFIED BY AM 
IMMEDIATE TMITIAL READ HEADER, FROM THAT POINT ANY ST'RSEQUENT READ 
HEADER, READ OR 'j^RITE WILL PRINT THIS ERROR IF THE TRACK IS NOT 
CORRECT. THIS ERROR WILL PRINT THE POSITION BEFORE THE LAST SEEK, THE 
PRESENT POSITION AND THE EXPECTED POSITION. 

MIS-SK ERR 

AFTER A SEEK WAS DONE, READ HEADER IS DONE TO VERIFY THE SEEK, THE 
ERROR PRINTOUT WILL INCLUDE THE LAST POSTIOM BEFORE THE SEEK, THE 
PRESENT POSITION AND THE EXPECTED POSTION, 



DRV STAT ERR 

THE RESULT OF A QEl STATUS OPERATION IS INCORRECT. 
IS SET OR THE STATE IS WRONG 



EITHER A ERROR HIT 



RE ERR ENC'D 

IN ATTEMPTING A RETRY OF A FUNCTION THAT WAS IN ERROR THE RETRY WAS 
SUCCESSFUL. ERROR INFORMATION CONSISTS OF BUS ADDRESS, DISK ADDRESS, 
NUMBER OF RETRIES BEFORE SUCCESS AND ERROR TYPF, 



HRD ERR 

THE NUMBER OF RETRIES WERE 
PRINTOUT CONSISTS OF ALL 
ERROR. 



EXHAUSTED WITH OUT SUCCESS THE ERROR 
REGISTERS BEFORE COMMAND AND AT TIME OF 



INIT WR OF SEC RAO 

MHILE WRITING THE PACK INITIALLY THE SECTOR INDICATED COULD NOT BE 
WRITTEN AND VERIJ^IED. THIS SECTOR WAS NOT IN THE PAD SECTOR FILE. 
EITHER STOP THE EXERCISER AND CHANGE CARTRIDGE, STOP THE EXERCISER AND 
VERIFY THE CARTRIDGE OR IGNORE ALL ERRORS FORM THAT SECTOR. 



3.2 ERROR HALTS 

ERROR HALTS ARE SUPPORTED PER DESCRTPED IN THE PREVIOUS 
/FLAG'.HOE. THERE ARE NO OTHER HALTS. 



SECTION MITH 



Ik 
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4«0 PERFOPMaNCE AND PROGRESS REPORTS 



4.1 PSRFORMANCS REPORTS 



PERFORMANCE 



METERS), WHEN 
FORMAT IS: 



REPORTS ARE GIVEN AUTOMATICALLY (PER SOFTWARE PARA- 
A DRIVE IS DROPPED, OR AT OPERATOR REQUEST (PRINT) THE 



TIME*. hh:mmsss 
PACK SERIAL 

SEEKS: mil 

BITS READ: 
BITS WRITTEN: 



*** RLOl PERPORMANCS REPORT *** 

DRIVE! ¥ 



PLCS*. XXXXXX 
DDDDDDDDDD 



JJJJJJJJJ {*16} 
KKKKKKKKK (*16) 



PUNNING OR DROPPED DHlDM 



ERRORS 
drive: 

HARD! 

DCK : 
DLT: 

t«?HERE: 



H 

H 
N 



SEEK: 
SOFT: 
HCRC; 

OPi: 



TRACK: 

nxm: 



N 



data: 
hnf: 



N 

n 



HH IS 

MM IS 

SS IS 

XXXXXX IS 

¥ IS 

DH IS 

DM IS 
DDDDDDDDDD 

nil IS 

JJJJ IS 

KKKK IS 

N IS 



HGUPS SINCE START/RESTART 
MINUTES SINCE ST ART /RE ST ART 
SECONDS SINCE START/RESTART 
ADDRESS OF CONTROLLER 
DRIVE NUMBER 

HOUR AT «HICH DRIVE WAS DROPPED 

MINUTE AT WHICH DRIVE WAS DROPPED 

- IS 10 DIGIT OCTAL SERIAL NUMBER OF PACK 

TOTAL NUMBER OF SEEKS SINCE 0:OC:OC 

TOTAL NUMBER OF RITS READ (*16) SINCE 0:OC:00 

TOTAL NUMBER OF BITS WRITTEN i*16) SIMCE 0:00:0''t 

NUMBER OF THAT TVPE ERROR SINCE 0:00:^0 



4.2 PROGRESS REPORTS 

THE ONLV PROGRESS REPORT IS THE AUTOMATIC PERFORMANCE REPORT, 



5.0 DEVICE INFORMATION TABLES 



THE RLll/RLVll CONTROLLER HAS 
CONTROL OF THE SUBSYSTEM. 



THE FOLLOJfJING F0UR(4) REGISTERS FOR 
RLCS - CONTROL ANH STATUS REGISTER (XXXXXX) 



BIT 15 - COMPOSITE ERROR 

BIT 14 - DRIVE ERROR 

"IT 13 - NON EXISTANT MEMORY ERROR 



^IT 12 - HEADER NOT FOU^FD (WITR BIT 10 SET) 
- DATA LATE (WITH 3IT 10 CLEAR) 

BIT 11 - HEADER CRC (MITH BIT 10 SET) 
" DATA CRC (WITH BIT 10 CLEAR) 

BIT 10 - OPERATION INCOMPLETE 

BIT 9/8 - DRIVE SELECT (0-3) 

BIT 7 - CONTROLLER REAOV 

BIT 6 - INTERRUPT EMABLE 

BIT 5 - EXTENDED BUS ADDRESS (BIT 17) 

BIT 4 - EXTENDED BUS ADDRESS (HIT 16) 

«IT 3-1 - FUNCTION CODE 

- NOP (PDP-11) MAINT (LSI-11) 

1 - ^'RITE CHECK 

2 - GET DRIVE STATUS 

3 - SEEK 

4 » READ HEADER 

5 - WRITE DATA 

6 - READ DATA 

7 - READ WITHOUT HEADER COMPARE 
BIT - DRIVE KE AD V 

RLPA - PUS ADDRESS RECTSTER (XXXXX2) 

BITS 15-1 BUS ADDRESS OF DATA TRAfJSFER 

BIT V SHOULD BE 

RLDA - DISK ADDRESS REGISTER (XXXXX4) 
FOR READ/WRITE ?^"UNCTIONS 
BIT 15 - MUST BE ZSRO(O) 

BIT 14-7 - CYLINDER ADDRESS FOR TRANSFER 

BIT 6 - SURFACE FOR TRANSFER 

BIT 5-0 - SECTOR FOR TRANSFER (0-47) 

FOR SEEK FO^fCTInN 



BIT 15 - MUST BE 7ER0(!)) 

BIT 14-7 - DIFFERENCE TO NEW CYLINDER 

BIT 6-5 - MUST BE 7ERO(0) 

BIT 4 - SURFACE 

BIT 3 - MUST BE ZERO 

BIT 2 - SEEK DIRFCTION( 1 - IN / - GUT ) 
BIT 1 - WUST BE ZERO 
BIT ^ - MUST BE ONE(l) 

FOR GET STATUS ''"UNCTION 
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BIT 15-4 - IGNOi^ED SROfJLD BE 7ER0 
BIT 3 » DRIVE RESET 
BIT 2 - MUST RE ZERO 
BIT 1 - MUST BE 0^!E 
BIT n - MfJST BE ONE 

RLMP - MULTIPURPOSE REGISTER 



FOR READ/WRITE FUNCTION 

BIT 15-0 - WORD COUNTCTWO'S COMPLIMENT) 
PQR READ HEAOFR FUNCTIOM 



BIT 15-0 - DISK HEADER OF SECTOR (FIRST READ) 

- ZERO WORD (SECOND READ) 

- HEADER CRC (THIRD READ) 

FOR GET STATUS P"UNCTION 



1 



HAS DRIVE STATUS 



BIT 15 
BIT 14 
BIT 13 
PIT 12 
BIT 11 
BIT 10 
BIT 9 
BIT ' 
BIT 
BIT 
BIT 
BIT 
BIT 



BIT 2-0 



■ WRITE OUT A ERROR 

• CURRENT HEAD ERRaR(CHE) 

■ WRITE LOCK STATUSCML) 

■ SEEK TI^E OUT(SKTa) 

• SPIN ERRCR(SPE) 

• WRITE GATE ERROR('f*GE) 

• VOLUME CHECK(Vr) 

• DRIVE SELECT ERROR<DSE) 

■ RESER¥£D(0) 

• SURFACE 

■ COVER OPEN 
- HEADS HOME 

• BRUSHES HOME 
-STATE RITS 

- LOAD STATS 

1 - SPIN UP 

2 - BRUSH CYCLE 

3 - LOAD HEADS 

4 - SEEK - TRACK COUMTIMG 

5 - SEE*' - LINEAR MODS 

6 - UNLOAD HEADS 

7 - SPIN DOW^ 



6.0 TEST SUMMARIES 
PROGRAM DESCRIPTION 
THE PROGRAM WILL TRY 



TO SIMULATE A USER ENVIRONMENT WITH RANDOM 



) 
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SELECTION OF DRTVKS PERFOR'^NG RANDOM OPERATIONS OF GET STATUS/ SEEK, 
READ AND '^RTTE. 

INITIALLY THE BAD SECTOR FILE IS RECOVERED FROM EACH DRIVE AND STORED, 
THEN EACH PACK IS E^^TIRELY WRITTEN RANDO^-LY WITH ONE OF EIGHT 
PREDETERMINED PATTERNS. 

THE MAIN LOOP IS A CONTIN'UOUS LOOP OF THE FOLLOWING STEPS 

1. RANDOMLY SELECT A DRIVE 

2. CHECK CONTROLLER OF SELECTED DRIVE IS NOT BUSY? 

3. THEN STEP 3; ELSE STEP 1 

4. RANDOMLY SELECT FHNCTION FOR DRIVE 
IF WRITS CHECK NEEDEDj THEN STEP 4 

IF SEEK NEEDS VERIFICATION; THEN STEP 12 

IF IN PROCESS OF RETRY? THEN STEP 6 

IF in PROCESS OF SEEff RETRY? THEN STEP R 

IF GST STATUS? THEM STEP 5 

IF SEEK? THEN STEP 7 

IF READ? THEN STEP 13 

IP WRITE? THEN STEP 17 

5. ISSUE 'WRITS CHECf? GO TO STEP 1 

6. ISSUE GET STATUS? GO TO STEP 1 

7. ISSUE LAST FUNCTION? GO TO STEP 1 

R. GET RANDOM CYLINDER AND HEAD WITHIN SOFT'*!ftRE PARAMETER LIMITS 

9. CALCULATE DIFFERENCE TO NEW POSITION 

10. ISSUE SEEK 

11. SET POSITION VERIFICATION NEEDED FLAG 

12. GO TO STEP 1 

13. ISSUE READ HEADER, THEN STEP 1 

14. GET RANDOM WORD COUNT WITHIN LIMITS 

15. GET RANDOM SECTOR WITHIN LIMITS 

16. CHECK THAT WORD COUNT AND SECTOR FIT ON TRACK IF THEN STEP 
16? ELSE FIX 

17. ISSUE READ? GO TO STEP 1 

18. GET RANDOM WORD COUNT WITHIN LIMITS 
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19, GET RANDOM SECTOR WITHIN LIHITS 

20. CHECK THAT WORD COUNT AND SECTOR FIT ON TRACK IF THEN STEP 
2C| ELSE FIX 

21- SELECT RANDOM PATTERNS IN 128 WORD CHUNKS UNTIL WORD COUNT 
DONE AND miTE PUFFER IN MEMORY. 

22. ISSUE yRITS? CO TO STEP 1 

THE PROGRAM WILL STAY WITHIN THAT MAIN LOOP UNTIL INTERRUPTED OUT BY A 
FUNCTION FINISHT^jG AT WHICH TIME THE INTERRUPT SERVICE ROUTINE WILL 
START EXECUTION. 

1. READ ALL REGISTERS OF CONTROLLER THAT INTERRUPTED AND SAVE 
IMAGES 

2. IF NO ERROR SET; THEN STEP 3? ELSE STEP 14 

3. CHECK FUNCTION WHICH CAUSED INTERRUPT 
IF iiilPITE CHECK? THEN STEP 3A 

IF GET STATUS? THEN STEP 5 

IF SEEK? THEN STEP 4A. 

IF READ HEADER; THEN STEP 7 

IF READ? THEN STEP 9 

IF WRITE? THEN STEP 3B 

3 a. CLEAR WRITE CHECK NEEDED FLAG, THEN STEP 4 

3 8. SET WRITE CHECK MEEDED FLAG IF REQUESTED THEN STEP 4 

4. IF RETRY > THEN REPORT SOFT ERROR, ELSE STEP 4A 
4A. EXIT TO MAIN PROGRAM 

5. CHECK STATUS FORI NO ERRORS 

COVER CLOSED 
BRUSHES HOME 
HEADS OUT 

SEEK LINEAR/TRACKING 
IF THEN STEP 4? ELSE STEP € 

6. REPORT STATUS ERROR? GO TO STEP 4A 

7. SET VERIFICATION DONE FLAG COMPARE PRESENT POSITION WIT« 
HEADER WORD IF THEN STEP 4A? ELSE STEP P 

8. REPORT MIS-SEEK, SET NEW POSITION? GO TO STEP 4 

9. IF DATA TO BE COMPARED? THEN STEP IC ? ELSE STEP 4 
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10. CHECK VALIDITY OF FIRST fm WORDS? IF THEN STEP 12? ELSE 
STEP 11. 

11. REPORT GARBLED DATA? GO TO STEP 4 

12. CHECK WORDS RSftD IH IF OKAY THEN STEP 4A ELSE STEP 13 

13. REPORT DATA ERROR^ GO TO STEP 4 

14. IF DRIVE ERROR? THEN STEP 33? ELSE STEP 15 

15. 1^ NXM? THEN STEP 18? ELSE STEP 16 

16. IF DPI? VlEn STEP 1^? ELSE STEP 17 

17. IF DLT? THEN STEP IB? ELSE STEP 20 

IB, IF RETRY < LIMIT THEN STEP 4A/ ELSE STEP 19 

19. REPORT HARD ERROR? CLEftP FLAGS? GO TO STEP 4A 

20. IF HCRC? THEN STEP 24? ELSE STEP 21 

21. IE DCRC^ T^EM STEO 2^? ELSE STEP 22 

22. IE HNF, THEN STEP 30? ELSE STEP 23 

23. YOU SHOULD NEVER GST HERE 

24. IF DOING RSAD/WRITE THEN STEP 25 IF DOING READ HEADER THEN 
STEP 26 

25. CHECK IF DA IS BAD SECTOR THEW STEP 4A? ELSE STEP 1«. 

26. READ 40 HEADERS, IF ALL GOOD THEN STEP 27? ELSE STEP 28 

27. REPORT SOFT HEADER CRC? GO TO 4A 

2S. FIGURE OUT RAD HEADER IF IN FILE THEN STEP 4A? ELSE STEP 18 

29. CHECK IF DA-1 IS IM FILE IF THEN STEP 4A? ELSE STEP 1° 

30. READ HEADER. IF ON CORRECT TRACK THEN STEP 31? ELSE STEP 32 

31. CHECK IF DA IS IN FILE IF THEM STEP 4A/ ELSE STEP 18 

32. REPORT TRACKING? FIX POSITION, GO TO STEP 4 

33. ACT UPONi VC 

SKTO 

SPE 
WGE 
MDE 
CHE 



m 
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34, GO TO STEP 4 'j 
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31 BIT AND OFFSET DEFINITIONS 
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370 ERROR MESSAGES 

546 SOFTiiARE PARAMETERS 

594 STATISTIC CODE 

622 INITIALIZATION CODE 

918 GLOBAL SUBROUTINES 

999 PROGRAM MAIN LOOP 

1191 ROUTINE TO SETUP AND ISSUE GET STATUS 

1199 ROUTINE TO SETUP AND ISSUE^SEEK FUNCTION 

1276 ROUTINE TO LOAD READ "lACIER^ANp ISSUE IT. 

1294 ROUTINE TO LOAD WRITE DATA COMMAND 

1307 ROUTINE TO LOAD PEAD DATA COMMAND 

*--5 SETUP CONTROLLER AND DRIVE INFO FOR INTERRUPT PROCESSING 



A3 ROUTINE TO LOAD FUNCTION 
66 INTER 



.66 INTERRUPT SERVICE ROUTINES 

436 CONTROLLER ERROR CHECK ROUTINE 

1666 COMMAND SERVICE ROUTINES 
1697 SEEK 
1707 READ 
1725 READ HEADER 

1759 GET STATUS 

1784 WRITE 

1842 DRIVE ERROR SERVICE 

1993 RETRY LIMIT ROUTINE 

2004 LIST OF FUNCTION ROUTINES 

2017 BAD SECTOR FILE ROUTINE 

2134 ROUTINE TO DROP DRIVE 

2178 ROUTINE TO CHECK" DATA 

2260 ROUTINE TO WAIT FOR CONTROLLER READY 

2583 GET STATUS/DRIVE RESET ROUTINE 

2304 ROUTINF TO GENERATE A RANDOM NUMBER 

2330 ROUTINE TO WRITE PACKS INITIALLY 

2515 ROUTINE FOP SYSTEM CLOCK 

2544 HEADS HOME ROUTINE 

2565 RANDOM WC AND DA ROUTINE 

2655 ROUTINE TO DUMP BUFFER ON DCK 

2730 ROUTINE TO CHECK FOR BAD SECTOR 

^-•^^ DRIVE INFORMATION BUFFERS 

DIAGNOSTIC SUPERVISOR — LOW CORE SET UP 
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.ENABLE AMA 
.ENABLE APS 
.NLIST ME,CND,MD 



000000 

oocooc 




SVC 

SVCINS=0 
SVCTAG=0 



POINTER ALL 



BGNMOD MDHEDR 



HEAD 
.ASC 
.ASC 
.ASC 
.ASC 
.ASC 
.BYTE 
.BYTE 
.BYTE 
.ASCII 
.ASCII 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 

.wor: 

.WORD 
.WORD 
.WORD 
.WORD 
.WCPD 
.WORD 
.WORD 
• WORD 
.BYTE 
.BYTE 
.WORD 
.WORD 
. WCPr 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
. WORD 
.WORD 



C7RLE,B,0,0,C,C/RL<» 
/C/ 

ni 

'k', 



1^1 



L<HAFD 
L$SOFT 
L«HK 

L<;sw 

L^LAST 



L^DISPATCH 

C 



C5PEVTSI0N 
CSEDIT 

C 

c 
c 

L«DVTYP 

L5RPT 

L?DP 

LSDRST 

L<:AU 
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moi§ mm -jgRg ljpu 

TwoRD e 

.WORD L^CLE&N 
FNDMOD 




28 



0Q2U0 DEVREG 
" 000000 .WORD C 

2 000001 .^LKV 

oiiWi 046122 030460 000 ^Alllt JplED 

002122 .EVEN 



33 ?DEFINITIONS 



002122 



•SBTTL BIT »ND OFFSET DEFINITIONS 



36 002122 BGNMOD GLBEQAT 

37 



40 000000 CS=0 ;CONTROL ftND STATUS OFFSET 

4f 000002 BA=2 JRUSADDRESS OFFSET 

42 0000C4 PA=4 JDISK ADDRESS OFFSET 

43 000006 MP=6 ;MULTI PURPOSE OFFSET 

44 JCONSTANT OFFSETS FOP INDIVDUAL DRIVE BUFFERS 

45 JTHE ONLY POSITION THAT IS CRITICAL IS THAT OF 

46 JM^PRPOS'"' IT M U S T (MUST) BE THE LAST EMTRY OF THE BUFFFR 

48 000000 SKCNT=0 ?SEEK OPERATION COUNT 

49 000002 RXFR1=2 JPEAD OPERATION COUNT (BITS) LOH ORDER 

M mm Iffmt <WRITE operation c'oUNT (BiTS)^[§S 88811 

52 000010 WXFR2=1C ? " " " " HIGH ORDER 

53 000012 ERRCNT=12 ;ERR0R COUNT - HARD 

54 000014 SFTCNT=14 jEPROR COUNT - SOFT 

55 000016 SKECNT=16 ?SEEK ERROR COUNT 

56 000020 DERCNT=2C JDRIVE ERROR COUNT 

57 000022 DCRCER=22 ?DATA CRC ERROR COUNT 

58 000024 HCRCER=24 ;HEADER CRC ERROR COUNT 

59 000026 DLTCNT=26 ?DATA LATE ERROR COUNT 

60 000030 0PICNT=3r; ;OPERATION INCOMPLETE ERROR COUNT 

61 000^^32 HNFERR = 32 ;HEADER NOT FOUND ERROR COUNT 

62 000034 NXMCNT=34 ;NON EXISTANT MEMORY ERROR COUNT 

63 000036 RETPY=36 JPRESENT RETRY NUMBER 

§4 000040 BnA=40 ? " DISK ADDRESS CONTENTS 

65 000042 BMP=42 ;PRESENT MULTIPURPOSE CONTENTS 

66 000044 FUNC=44 ;LAST FUNCTION LOADED 

67 OO0046 BCSADR=46 ?CSR IMAGE OF LAST COMMAND 
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BIT AND OFFSET DEFINITIONS 

LSTHDR=50 
RTYPE=52 
S«rCNTl = 54 
PRFLGS=56 
RXFR3=€0 
HXFP3=62 
LSTDA=64 
DIFWD=66 
DPH0UR=7C 



DPMIN=7l 
TRERR=72 
DATCER=74 
DOiiCK = 76 
SERMM1=1C0 
SERNM2=1C2 
DC 3=104 
ORS^LslOe 
BBA=110 
BSECPT=112 
RSEEK=114 
S0FTCS=il6 
SRIPG==12C 
PRPOS=122 

SKDON^BIJi^ 
DRDY=BITC 
INTEN=BIT6 
ERR=BIT15 
DERR=BIT14 
W0E=BIT15 
HCE=BIT14 
WL=BIT13 
S(rT0=PIT12 

spe=bit1i 

«GE=BIT1C 
VC=BIT9 
DSE=BIT8 
NXM=BIT13 
DLT=PIT12 
DCRC=PIT11 
HCRC=BI""' 
HNF=BIT 
OPI=BIT__ 
CRDY=PIT7 
BA17=PIT5 
BA16rPIT4 
HRCHK=BIT1 
GSTAT=PIT2 
SEE!C=BIT1 1PIT2 
RDH0R=PIT3 
WPITB=PIT3 IPITI 
READ=PIT3IBIT2 
DRST=BIT3iPITt IBITC 
GSBIT=BIT1IB1TC 
MrrRITO 
SIGN=B1T2 



1 1 li 
TIC 



LAST POSITION ON DISK 

ERROR ON WHICH RECOVERY IS BEING TRIED 
LOW SEEK COUNT 
INTERNAL FLAGS 
THIRD ORDER READ COUNT 
THIRD ORDER WRITE COUNT 
DISK ADDRESS AT SOFT ERROR 
LAST DIFFERENCE WORD OF SEEK 
HOUR OF DRIVE DROPPED 
MINUTE OF DRIVE DROPPED 
TRACKING ERRORS COUNT 
DATA CMp ERRORS 
PERFORM WRITE CHECK 
SERIAL NUMBER OF CARTRIDGE 
SERIAL NUMBER OF CARTRIDGE 
CSR ADDRESS 

DRIVE SELECT BITS(8,9,10) 
PRESENT BUS ADDRESS CONTENTS 
POINTER TO BAD SECTOR FILE 
SEEK IN PROCESS OF RECOVERY 
CSR OF SOFT SPRCP 

WRITE OPERATION IN PROGRESS AT PWR FAIL TIME 
PRESENT POSITION ON DISK 



;DRIVE READY 

yINTERROPT ENABLE 

JCOMPOSITE ERROR 

;DRIVE ERROR 

;WRITE DATA ERROR 

?HEAD CURRENT ERROR 

JWRITE LOCK 

;SEEK TIMEOUT ERROR 

JSPINDLE TIME0UT/UND=:R/0VER SPEED 

yWRITE GATE ERROR 

JVOLUME CHECK 

JDRIVE SELECT ERROR 

yNON-EXISTANT MEMORY ERROR 

?DATA LATE 

?OATA CRC ERROR 

?HEADER CRC ERROR 

;HEADER NOT FOUND ERROR 

JOPERATION INCOMPLETE ERROR 

JCONTROLLRR READY 

;EXTENDED PUS ADDRESS BIT 17 

JEXTENDED BUS ADDRESS BIT 16 

JWITE CHECK FUNCTION CODE 

?GET DRIVE STATUS FUNCTION CODE 

;SEEK FUNCTION CODE 

;READ HEADER FUNCTION CODS 

?WRTTE FUNCTION CODE 

?REAO FUNCTION CODE 

JDRIVE RESET COMMAND CODE FOR DRIVE COMMAD WORD 
GET STATUS COMMAND CODE FOR DRIVE COMMAND WORD 
MARKER BIT FOP DRIVE COMMAND WOPD( SEEK, GET STATUS) 
''EEK(0 = AWAY FROM SPINDLE) 



JniRECTiON FOP s: 



0=AWAY FROM SPI 
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SEQ 0038 



52 
53 

n 

58 
59 
60 

II 

64 

65 

68 

11 002122 

72 
73 

76 002122 
77 

,78 
.79 



000020 
000100 



OQOQOO 

mm 

ogoooe 
ooooio 



mm mm 



SKHS=PIT4 
HEAO=BITf 



;HBAD SELECT FOR SEEK 

?HEAD SELECT FOR READ,WRITErGET STATUS 



;OFFSET FOR HARDWARE P-TABLE 

CSR=0 

VECT=2 

PRI0R=4 

DRBT=6 

CNT=10 

jOFFSET FOR SOFTWARE P-TAPLE 
RLT=0 



.SBTTL 
BGNMOD 



GLOBAL DATA AND CONSTANTS 
GLPDAT 



;READ ERROR COUNT 
;R/W ERROR COUNT 
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MBY: 

DRUT; 

DRPRS: 

sysmsk: 

hinum: 

LONUM; 

CYLMSFC: 
SECMSK: 

hrinit: 
HRPOS: 



.WORD 
-BYTE 
.BYTE 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 





5 


176543 
123456 
100177 
100077 







?REASON FOR DROPPING DRIVE 

;ORIVES UNDER TEST 

JDRIVBS PRESENT 

;MASK FOR 0-7 DRIVES 

?PRIME FOR RANDOM 

5 NUMBER GENERATOR 

5MASK FOR CYLINDER ONLY 

;MASK OUT SECTOR BITS 

?WRITE INTT FLAG 

>0NIT IN WRITE INIT INDICATOR 



;the following 
?theref0rf don' 



CNTLRl: .WORD 

CNTLR2: .WORD 

LSTDRlS .WORD 

LSTDR2: .WORD 

BCSR: .WORD 

BVEC: .WORD 

BPRIOR: .WORD 

BDRSEL: .WORD 

HDRFND: .WORD 

CRKSEC: 

DECNT: 



LOCATIONS ARE CLEARED AS A GROUP (DOWN TO 
T INSERT ANY CONSTANTS 



PO: 
PI: 

P2! 



TEMP( 
TEMPI 
TEMP* , 
TEMP3! 
TEMP4J 
TEMP5: 
TEMP6! 
TEMP7! 
TEMP8: 
TEMP?; 

VECTi: 

VECT2: 



.WOR„ 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WOR 
.WOR 
.WORD 
.WORD 
.WORD 



PRIORI: .WORD 
PRI0R2: .WORD 

GDDAT: 

RNTEMP. 
INTERVAL. 
LSTTIM: .WORD 



.WORD 
.WORD 



SECOND: 
MINUTE: 

hour; 

E.cs: 

e.ba: 

e.oa: 

E.MP; 

E.MPl: 

E.MP2: 



-WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
... .WORD 
SYSCLK: .WORD 
BUFl: .WORD 
BnF2: .WORD 
MAXWC; .WORD 



174400 



?CSR OF CONTROLLER 1 (LUN 0-3) 
JCSR OF CONTROLLER 2 (LUN 4-7) 

mm mjn mk 

;CSR FROM P-TABLE 
;VECTOR " 

?DRIVE " 

JFLAG TO INDICATE HDR IN BAD LIST 

JSECTOR OF ERROR - USED BY BAD SECTOR LOCATION 

JDATA ERROR COUNT 

;TEMP LOCATION 

JTEMP LOCATION 

;TEMP LOCATION 

. if If 



?VBCTOR OF FIRST CONTROLLER 
yVECTOR " 2N0 



?TIME BETWEEN REPORTS 
JLAST TIME ON SYSTEM CLOCf 
?SECONDS OF SYSTEM CLOCK 
?MINUTES OF SYSTEM CLODK 
;HOORS of SYSTEM CLOCK 
-IMAGES OF REGISTERS 
ON INTERRUPT 



?FLAG INDICATING PRESENSE OF SYSTEM CLOCK 
;BUFFER FOR FIRST CONTROLLER 
;BUFFER FOR SECOND CONTROLLER 
?MAK WORD COUNT DETERMINED BY CORE 
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.SPTTL 
BGNMOD 

JGLOBAL TEXT 




.WORD 
.WORD 



trpflg: 

STFLG: 

;END of mass CLEAR 

CNTFLG: .WORD ^ 

FASCII: .WORD 

FASPNT: .WORD 

DWCNT: .WORD £ 

DWCNTl: .WORD ^ 

ERRVEC: .WORD 4^ 

STl: .WORD 34 

ST2: .WORD 35 

.WORD 

.WORD 

ENDMOD 



GLOBAL MESSAGES 
GLPTXT 



.ASCIZ 
.ASCI7. 
. ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 

.ASCIZ 
.ASCIZ 



J NUMBER OF UNI TS„ON^S¥STEM 
JPOWER FAIL INDICATOR 
;TRAP OCCURANCE FLAG 
;START FLAG 



?POtNTER 
?ERROR COUNT 
?ERROR COUNT 
?ERROR VECTOR 
JSTATES ALLOWED 
JSTATES ALLOWED 



slWJ OF FUNCTION 



.ASCI 
.ASC Z 
.ASCIZ 
•ASCIZ 
.ASCIZ 
. ftSCIZ 
.ASCIZ 
. ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 



"TIME: " 
" RLCS: .. 
" (RLCS): " 
" function: " 

" (RLBA): " 
" (RLDA): " 
" (RLMP): " 

/DIF wd: / 

/PACK SERIAL tf: / 

/NO CRDV/ ^ 

/DR NOT RDY/ 

WR NOT RDY W/O DR ERR% 



/PUG/ 
/INIT- 



WR OF SEC BAD/ 



/ SECTOR: / , 
/NO GOOD HDR/ 
/UNDIAGNOSABLE ERP/ 
/SEEK ERR/ „ 
/SOFT ERR ENC'D/ 
/DR ERR/ 

/DR ERR WILL NOT RESET/ 

/DR STAT ERR/ . 

/VOL CHK WILL NOT CLR/ 

/WR GATE ERR WILL NOT RESET/ 

/DR ERR - RECOVERED/ 

/DATA CMP ERR/ 
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SEQ 0041 



mm 

003110 

mm 

003170 

m 

003313 
003326 

mm 

003414 



040504 
051124 

m 

043123 
04050 ■ 

052^8 
12 

054105 

mm 

050117 
040507 



mm 

004121 
004126 
004134 

km 

004153 

mm 

004205 



ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 




/HARD ERROR/ 
/DATA DUMP - DCK/ 
/TRACKING ERR/ 
/HRD FRR LMT EXC'D/ 
/SK ERR LMT ElfC'D/ 
/SFT ERR LMT EXC'D/ 
/DATA ERR LMT EXC'D/ 



/PUFFER CHOSEN TOD BIG - WAS / 
/REQ BY OPR/ 
/EXH'D RETRY ON SEEK/ 
/HDS NOT UNLD ON ERR/ 
/DR WLD NOT LD/ 
/OPER LMTS EXC'D/ 
/GARBPLED DATA - CAN'T CHECK IT/ 
/MORE THAN 16 BAD SECTORS/ 
/NO FACTORY FILE/ 
/NO FIELD FILE/ 

/p-table: / 
/ILL P-TABLE/ 
/ VECTOR: / 
/NO DRIVES/ 
/ DRIVE: / 
/ LST POS: / 

/ EXP POS: / 
/ REC pos: / 
/OR DID REC'R 
/AT BUS ADDR: 
/RETRYS: / 
/ ERROR type: / 

/STATUS was: / 
/ SHOULD be: / 

/ RETRIES ATTEMPTED/ 

/ exp'D: / 
/ rfc'd: / 

/DRIVE dropped/ 



FROM PWP UP/ 




, DRV/ 

/TESTING STARTED/ 
/WRITING PACK / 

;THIS LIST OF ASCII TEXT IS USED AS A TABLE FOR PRINTING 
;FUNCTI0NS in error messages table IS ♦•MTCR - MTRD", 
;THE ORDER IS IMPORTANT AS WELL AS THE LENGTH OF EACH 
? ASCIZ STRING. EACH STRING IS SBVEN(IO) BYTES PLUS ZERO 
JFILL BYTE (TOTAL 8(EIGHT) BYTES) LONG. USED IN LINE! 
;SUBROUTINE, 



mm mm mm mm 



.ASCIZ / WPCHK / 
.ASCIZ / GTSTAT/ 
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. ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 



SEEK 
RDHOR 
WRITE 
READ 



388 004376 
(12) 004406 



000024 



004737 005230 



JiND'orLisf'&Ow'YofrCAN'PUrANrTHiN^ 



.EVEN 

ENDMOD 
.SBTTL ERROR MESSAGES 
BGNMOD GLBERR 



016446 
012746 



000064 
002407 



BGNMSG E|R1 

ENDMSG 

LlOOOOl 

EMT 



BGNMSG EPR2 
JSR 
PPINTB 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
EMT 
ADD 

ENDMSG 

LlOOOl! 

EMT 

BGNMSG ERR3 
JSR 
PRINTB 
MOV 
MOV 



PC, LINES 
CSMSG 



^GENERAL ERROR REPORT 



;MIS-SEEK ERROR REPORT 



SFflT4l!|DIFMSG,DIFWD(R4),#LPS,LSTHDR(R4),»EPS,PRP0S(R4),#RPS,Rl 
R1/-(SP)^^ 

OTH6i(R45,-(SP) 
»DIFMSG,-(SP) 

CSPNTR 
#24, SP 



C$MSG 



;,LINE1 

•MT2Ae«CRLCS,S 



PC 

ItF ... 
LSTDA 
#CRLD 



;SOFT. ERROR RECOVERABLE ERROR REPORT 
:RLCSrS0FTCS(R4),«CRLBA,PBBA(R4),«CRLnA,LSTDA(R4) 
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(9) 




mm 

000010 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
EMT 

^rSntb 

MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
EMT 
ADD 

ENDMSG 
EMT 



BGNMSG FRR4 
JSR 
PRINTB 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
EMT 
ADD 

ENDMSG 

L10003: 

EMT 



ERR6 

JSP 

MOV 

PRINTB 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 



9PBA(R4),-(SP) 
#CRLBA,-(SP) 
S0FTCS(R4),-(SP) 
ttCRLCS,-{SP) 

SP,RO 
C$PNTB 

|F|fi^#MRT,R|TRY(R4),«EPT,RTYPE(R4) 
#MRT,-(SP> 

Sp.ro 

C$PNTB 
#l4,SP 



(SP) 



CSMSG 



;GET STATUS ERROR REPORT 



PC,LINE3 

#FMT6<lMST,E.MP,fmSTl,STl,ST2 

ST2/-CSP1 

STl,-(SPi 

ttMSTl,-(:SP) 

E.MP/-(SP) 

#MST/-CSPr 



sp;pu 

C§PNTB 
tl6,SP 



JDATA ERROR SUMMARY 



PC<-LINE2 

BMp(R4),R0 

#FMT9A^0ECNT,R0 

DF6Ni!-lsP) 
#FMT9A£-(SP) 

SP,RO 

CSPNTB 

«10,SP 
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ERROR MESSAGES 

ENDMSG 

L10004S 

EMT C$» 



PAGE 1-9 



000024 

mm 



JNDN RECOVERABLE ERROR REPORT 



EPR7 

PRINTR 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADO 

JSR 

ENDMSG 

EMT 



BGNMSG ERRB 

PRINTS 

CLR 

BISR 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

PRINTB 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

PRINTB 
MOV 
MOV 
MOV 



#FMT8/RETRY(R4)/«RTl 



CS^NTB 



>RSEL+1 



JBAD DATA COMPARE ERROR REPORT 
»TIME, HOUR, MINUTE, SECOND, «MRLCS,DCS(R4),«DRNM,<B,DRSEL*l(R4)> 
(SP) 



DftSEL+l(R4 
#DRNM4-(SP, ^ 
OCS(R|)/-(§P) 
»MRLC$,-(SPJ 
SECOND, -(SP) 
MINUTE,-CSP) 
HOURg-(SP) 

IrMTifirifsP) 
cspnTb 

|FMflOA,<^CRLBA,«BBA(R4),#CRLDA,BDA(R4),«EXP,GDDAT,ifRCD,(R2) 
(P2),-(§P) 
#RCD/-(SP) 



#RCD/-(SP) 
GDDAT,-(SP) 
#EXPe-(SP) 
BDA(R4),-(SP) 
#CRLDA,-(SP) 



«PBA(R4)#-(SP) 

CSPNTB 
#24, SP 
#FMT|OB,R 
R2,-(SP) 



(SP) 
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005170 
005172 



010600 
104014 
"62706 




000050 
003645 

004004 
0Q6445 
000005 



000014 



013746 002160 

-^-"746 002337 

' 003562 

. . . -506415 

746 000007 

iC4Sl4 

062706 000020 



104023 

004737 005474 
104023 



MOV 
EMT 
ADD 

ENDMSG 



BGNMSG ERR9 

JSR 
PRINTB 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
EMT 
ADD 

ENDMSG 



SP,RO 

CSPNTB 

<i6,SP 



PC,LINE3 

#FMTi3,«MST,Rl,w 
LSTHDR(R4),-(SP) 
|LPSj-^Sp5 

tfM§T#-(SP) 
#FMT13,-(SP) 
*f5,-(SP) 
SP,RO 
CIPNTB 
#14, SP 



L10007: 



EMT 



ERRIO 

PRINTB 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

ENDMSG 
EMT 



?DRIVE ERROR 



#LPS,LSTHDR{R4) 



;INVALID ENTRY IN P-TABLE REPORT 



tfFMTll,#MPT,Rl,tMRLCS,BCSR,»MVEC,BVEC 
BVEC,-( SP) 



|mrl6s^^(sp) 

#MpT#-(SP) 

*^FMTil,-(SP) 

It7,-(SP) 

CSPNTB 
#20, SP 



C<?MSG 



BGNMSG ERR12 

JSR PC,LINE3 
ENDMSG 

EMT c<;msg 

BGNMSG ERP13 



LlOOll: 
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005046 
156416 
ni2746 

05426 012746 



000010 



L10012S 



mm 

002310 



002306 



IS: 



JSR 

PRINTS 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

ENDMSG 

EMT 

MOV 
MOV 
BIC 

61? 

BEQ 
ADD 



PRINTB 

CLR 

BISB 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

PRINTB 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

RTS 

PRINTB 

CLR 

BISP 

MOV 

MOV 

MOV 



PC,LINE3 

ttSMSG,-tsp) 

iPHT12£-(SP) 

i3/-<SP) 

SPfcRO 

CSPNTB 

#10, SP 



FIINC(R4)#FASPNT 

«MTCR,PASCII 

ilNTEN/FASPNT 

FASPNT 

FASPNT 

2S 

||.,FASCII 



;GET FUNCTION 

;first function ASCIZ 

;CLEAR INTERRUPT ENABLE 

iSfewN^COUNT function 
;FOUND? 

?n0 next one 
;loop 



#TIME,H0UR,MTNUTE,SEC0NDr#MRLCS,DCS(R4),#DRNM,<B,DRSEL-H(R4)> 
(SP) 



ttFMTl,# 
DJiEL+l(R4), 

«ornm,-(spS 

DCS(R4)/-(SP) 

ttMRLCS,-(SPJ 

SEC0ND,-(SP) 

MlNUTEe-(SP) 

HOUR,-(SP) 

CSPNTB 
#24,SP 

«FMTlA,«MFUNCrFASCII 

FASCII/-(SP) 

#MFUNC/-(SP) 

|fmtia,-(sp) 

«3/-(SP) 

SPrPn 

CSPNTB 
#10/SP 
PC 

«FMT9,#TIME, HOUR, MINUTE, SECOND, #MRLCS^DCS(R4)#«DRNM,<B/DRSEL+1(R4)> 

PRSEL+1(R4),(SP) 
»DRNM,-(SP) 
DCS(R^),-(SP) 
«MRLCS/-(SP) 
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MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
EMT 
ADD 
RTS 

JSR 

PRINTB 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

PRINTB 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

RTS 



SECOND,-(SP) 

MINUTE>-(SP) 

HOUR,-(SP) 

i*TIME,-(SP) 

«FMT9*-(SP) 

CSPNTB 
PC,LINE1 

|FMT2^|CR^CSjBCSA0R(R4),*CRLBA,9BBA(R4),«CRLDA,BDA(R4),#CRLMP,BMP(R4) 




#CRLB.., . 

CSPNTB 
«54,SP 

|FMT3,#CRLCS,E.CS,«CRLBA,E.RA,#CRLDA,E.DA,#CRLMP,E.MP 

#CRLfip,-(lp) 

E.nA£-(SP) 

#CRLDA,-(SP) 

E.BA£-(SP) 

«CRLBA,-(SP) 

E.CS/-?S|) 

#CRLCS,-(SP) 

#FMT3,-(SP) 

CSPNTB 
#24, SP 
PC 



?FORM*T STATMENTS 



FMTl: 

FMT17: 

FMTIA: 

FMT2: 

FMT2A: 

FMT3: 

FMT4: 

FMT5: 

FMT6: 

FMT7: 

FMT7A: 



. ASC 
. ASC 
.ASC 
.ASC 
.ASC 
.ASC 
.ASC 
.ASC 
.ASC 
.ASC 
.ASC 



/»T»Z2%A:*Z2%A:»Z2/ 
/%T%06%T%01/ 
/%T%T%N/ 



/^APEFORE ERR%T*06/ 
/»T*06%T%06tT%06%N/ 

/*AAT ERR *Tt06%T%06%T%06%T%06tN/ 



/tT%06%T%06%N%T%06%T%06»N/ 
/%T»06%T%T%N/ 
/»T»06%T%06*A OR %06%N/ 
/*N%T%Z2%A:%Z2%A:%Z2%T%06%T/ 
/*01%N%T%A - ITIN/ 
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/♦Df *T»N/ 

/%T%Z2%A:%Z2%A:%Z2*T%06%T%01%N/ 

/%D6%A WORDS BAD OUT OF %D6%A WORDS REAO%N/ 

/»T»Z2%A:%Z2%A:»Z2%I%06fT»0l/ 

/»Tt06%T*06fNtTf06%T*06%A AT BUS ADDRESS / 

/*06*N/ 

/*Tt02%T%06%T1t03/ 

/»T»06*n7 

/%T%06%T%06%N/ 

/%T%Z4%A NOW IS %Z4%N/ 

/»N»TtN/ 

/»06%A / 

?1SAW0PD 
/»AERROR 
/»ANOT T 



*D3%A. S/B %06%A 

(S) set:«t%n%are 

ESTING CS= %06»S 



%06%A WAS %06%N? 

COVERY BEING ATTEMPTED/ 

0R= %01%N/ 

/3:NftT/ 

/tN*NtS10*A*** RLOl PERFORMANCE REPORT ***%N%N/ 
... — 'iNINGtN/ 



/»A 



RUN 

DROPPED 



%Z2tA:%Z2SiN/ 



/%Tt05%05*N/ 

/tASBEKS: %D6tZ3%N%ABITS READ: %D6%Z4*Z4*A (*16)*N/ 

/»abits written: %d6%z4%z4*i (*16)%n/ 

/%n%aerrors%n%adrive: %D6*a seek: %D6%a track: %d6%a data: 

/»AHARD: *D6*A soft: *D6tN/ 
/fADCK: %D6»A hcrc: ID6fA nxm: 

/%adlt: %d6%a dpi: %06%n%n/ 



%D6%N/ 



»D61!A HNF: %D6%N/ 



.SBTTL 
BGNMOD 



L10013-L$HW/2 
174400 


1 



endmod 

softs^are parameters 
sptcode 



;BUS address 

?VECT0R for 1ST RL CONTROLLER 
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000001 
012354 



LIMIT: 
ERLMT: 
SELMT: 

dalmt: 

SKLMT: 

Tyiwt: 
cmrd: 

xIWlI: 

T.MXH: 

t.mnh: 

T.MXC: 
T.MNC: 
T.MXS: 
T.MNS: 
T.DCK: 

t.drp: 

T.MNB: 
S^LMT: 
T.STA: 
DRLMT: 

t.rof: 
t.ran: 

T.PAT: 
T.SLT: 
T.CLT: 
T.AUT: 
T.STIP: 

t.wck: 

T.DCD: 

ENDSW 
H0014: 



.word L10014-LSSW/2 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
• WORD 
.WORD 
.WORD 
.WORD 
.WORD 



1 
3 

120. 
24. 



1280. 
100 



'>7600 





i 

I 

128 





1 

10. 



ENDMOD 
BGNMOD DSPCOOE 
DISPATCH 

.WORD 
.WORD 



596 007606 
597 

598 0076C6 



.SBTTL 

BGNMOD 
BGNRPT 



STATISTIC CODE 
RPTCODF, 



;RETRY LIMIT 
;ERROR LIMIT 
?SEEK ERROR LIMIT 

JDATA XFER LIMIT (*(10*3)) (BITS) 
;SEEK LIMIT 

JTIME INTERVAL BETW/ STATISTICAL REPORT 
JCOMPARE ON READ 

;ERROPS TO REPORT ON DATA COMPARE 
yCHANGE OTHER PARAMETERS 
JMAXIMUM R/W TRANSFER BUFFER 
^MAXIMUM HEAD SELECT 
JMINIMUM HEAD SELECT 

;maximum cylinder 
;minimum cylinder 
jmaximum sector 
jminimum sector 

jdata dump on data check error 
jdrop on limit reached 
jminimum buffer transfer size 
;soft error limit 

;drop drive on performance reached 
jdrivb error li^it 
jread only flag 
?random select of patterns 
;only one pattern 4 = worst case 

}—-" 



SEEK RETRY LIMIT 
NUMBER OF ERRORS 



_ _ RS ON DCK DUMP 

;AUTO ON START UP 
^RESTRICT BUFFER SIZE 
" " CK 



?D0 WRITE CHECK 



PRINTS #FMTS1 



JPRINT STATISTICAL HEADER 



ASSEMBLY ROUTINE 
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(7) 007606 
(6) 007612 

(4) 007622 



m 

605 
606 



007626 

007630 
007634 
007640 



NOV-78 
Sli746 

mm 

062706 

010446 

012704 
005764 
001402 
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007642 004737 



nm 

007656 



007660 012604 



10 40 25 




635 
636 

Hi 
m 

641 

m 

644 



007674 
0Q7700 

mu 
nm 

007724 

mm 

007740 ij 
007744 00 



001366 



006717 
000001 



025056 
000104 



011670 

mm 



104033 
005037 

lliP 



0237 
'446 

^8! 



000050 

mm 

000034 



002276 

mm 

002130 

mm 



STATISTIC CODE 

MOV 
MOV 
MOV 
EMT 
ADD 

MOV 

MOV 
TST 
BEQ 



ADD 
CMP 
BNE 



#FMTS1,-(SP) 

CSPNTS 
#4,SP 

R4,-(SP) 

#DRB0F<R4 
DCS(R4) 

2S 

PC^PEPORT 

flPRP0S+2#R4 

R4,«ENDBUF 

IS 

(SP)+/R4 



ENDRPT 

L10015: 

EMT C$RPT 
ENDMOD 

.SBTTL INITIALIZATION CODE 

BGNMOD INITCODE 

BGNINIT 

SETPRI «340 

MOV »340|.P0 

EMT CSSPRI 
BRESET 

EMT CSRESET 



CLP 
CLR 
CLP 
CLR 

RBAOEF 

MOV 

EMT 

BNCOMPLE 
8CC 
INC 
MOV 
MOV 
BITB 
BEQ 
MOV 
BIS 



OPFLG 
INCALL 
STFLG 
CNTFLG 
#EF.PWR 
#EF.PHR,RO 
CSREFG 
TE 3S 
3$ 

PWRFLG 
■-RBUFrR4 



R2/DRfJ 



R2/DRfJT 



;SAVE PRESENT VALOE OF R4 

?START OF DRIVE BUFFER 
;IS THERE A DRIVE? 
)N0, GET NEXT ONE 

?TYPE OUT SUMMARY 

;NEXT DRIVE 
JAT THE END? 

;no, try next 
jrestore r4 



JSTART OF INITIALIZE CODE 
;PRI0RITY TO SEVEN 



;CLEAR CONT 



?INniCATE POWER FAIL 
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645 007756 010074 000104 MOV R0^flDCS(R4) 

646 007762 012701 000074 MOV #60.,R1 

tu nm mm """"^ iii fu««""^> 

649 007776 WAITHS |10. 

(3) 007776 012700 000012 MOV ll0.,R0 

i mu mm in 

651 010006 001367 BNE 12S 

111 812811 mn TsI tr/Ar" 

655 010022 000137 010062 JMP 13$ 



65, 

657 010026 004537 021136 15$S JSR R5,ISDRST 



ASSEMBLY ROUTIN 
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lfl:2fl INITIALIZATION CODE 



13$: 



JSR 

CLR 

CLP 

CLR 

CLR 

CLR 

ADD 

ASLB 

BCC 

TST 

BEQ 

CLKON 

MOV 

EMT 

REQTIM 
EMT 
MOV 
JMP 

READEF 
MOV 



is: JSP 

MOV 
MOV 

2S: MOV 
CLRDAT: CLR 
CMP 
BNE 



RStHDHOME 

PRFLGS(R4) 

RETRY(R4) 

D0WCK{R4) 

RTYPE(R4) 

RSEEK(R4) 

||RP0S+2/R4 

lis 

SVSCLK 

4<; 

CSKWON 
RO 

csreqtim 
ro/lsttim 

POWER 

«EF. CONTINUE 
#EF,CONTINUE^R0 



CNTFLG 

^.ND 

R5#CLEAR 

SHIIsI^lSnum 

#CNTLR1,R0 
RDAT 



MOV 
MOV 
MOV 
MOV 
CLR 
TST 
DEQ 

GPHARD 
MOV 
EMT 



002226 

nm 



BNCOMPLETE 
BCC 
MOV 
MOV 
MOV 
MOV 
TST 
BNE 
MOV 
MOV 
MOV 



R0,«STFLG+2 
CLRD" 



tfDRBUF/R4 

ieSEC0/R2 

LSUNIT,R3 

R3/UUT 

Rl 

R3 

END 

Pl^RO 

cs6phrd 



12S 

}?^)+/BCSR 
(PO)+#BVEC 
(R0)+/BPRIOR 
(PC),PDRSEL 
CNTLRl 

RPRIOR/ PRIORI 
BCSP, CNTLRl 
BVEC,VECT1 



JCONTINUE FROM CONSOLE? 

JNO, CONTINUE W/ INIT CODE 

JVES SET CONT FLAG, GO TO END OF INIT 

5CLEAR ALL DRIVE BUFFERS 
JPR^^ME RANgOM GENERATOR 

JCLEAR FLAGS 

JMASS CLEAR 
/ 

JSETUP UP DRIVE BUFFER POINTER 

JSETUP BAD SECTOR POINTER 

;GET NUMBER OF UNITS 

JSAVE LSUNIT 

;INIT P-TABLE 

JANY P-TABLES LEFT? 

;NOrGO TO END 

JGET A P-TABLE 



JGET CSR 
?GET VECTOR 
?GET BPRIOR 
?GET DRIVE 

?D0 WE HAVE CSR I YET? 
JYES,THEN SEE IF IT'S IT 



;no,make this one csr i 

;MAKE this VECTOR VECTl 
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005737 
001026 
005037 



5S: 



lOS: 



12S: 
11$: 



uiVi", nun 

000004 002132 
002274 000002 

000002 002132 

000040 

002302 
002304 
002144 



CMP 

BNE 

CMP 

BNE 

MOV 

JSR 

BP 

TST 

BNE 

CMP 

PEQ 

MOV 

MOV 

MOV 

CMP 

BNE 

CMP 

BNE 

CMP 

BEQ 

MOV 

JSR 

BP 

FRRDF 

TRAP 

.WORD 

.WORD 

.WORD 

CLR 

INC 

DEC 

ADD 

BP 



BCSR, CNTLRl 
5S 

VEC/VECTl 



m. 



#PUF1|.TEMP1 
R5,FILINF 
111 

CNTLR2 

vIcTl/BCSR 
ICS 

BCSP,CNTLR2 

RVECtVECT2 

BPRT0R/PRiaP2 

BCSR,CNTLR2 

ICS 

BVEC,VECT2 
lOS 

V|CT2, VECTl 

#P0F2/TEMP1 
P5,FILINF 

lfo.,ILLEG,ERR10 

TSERCODE 
1^0 
'LLEG 
-RPIC 
DCS(R4) 
Rl 

||2./R2 



MOV #177770/SVSMSK 

CMP UnT,44 

BGT 2S 

BIS #4-S¥SMSK 

CMP UUT,#2 

PGT 2S 

BIS #2£SYSMSK 

READEF #EF. START 

MOV #EF. START, RO 

FMT CSREFG 

BNCOMPLETF RESTART 

BCC RESTART 

INC ST^LG 



BNE 
CLR 



TST 

3S 

WRINIT 



CNTFLG 



?TS THIS CSR CNTLRl? 

;NO,GO CHECK AGAINST «2 

;IS VECTOR PROPER? 

?N0- REPORT ERROR 

;FIRST CONTROLLER/FIRST BUFFER 

?F1LL BUFFER 

;G0 GET NEXT P-TABLE 

JHAVE HE GOT CSR #2 YET? 

?YES, CHECK THIS ONE AGAINST IT 

;IS THIS VECTOR SAME AS CNTLRl 

MFSO, DON'T ALLOW IT 

?MAKE THIS ONE CSR 2 

JSETUP SECOND VECTOR 

JIS THIS CSR « 2? 

;N0£ WELL WE DON'T ALLOW 3 

JDORS IT HAVE PROPER VECTOR 

;N0, go REPORT ERROR 

J IS VECTOR OF FIRST EQUAL TO 

>VECTOR OF SECOND, YES REPORT ERROR 

;OTHER CNTLR/OTHER BUFFER 

JLOAO BUFFER 

JNEXT 

JBAD P-TARLE 



jPniNT TO NEXT 



?SETUP FOR EIGHT DRIVES 
?MORE THAN FOUR 
?YES, THEN MASK IS OKAY 
;SETUP FOR FOUR DRIVES 
?MORE THAN TWO 
JYES, IT'S OKAY 
;SET FOR ONE OR TWO 
;START COMMAND 



;N0, CHK RESTART 

JSET START INDICATOR 

?CONTINUING 
;YES GO TO 3S 

JCLEAR THE WRITE INTT FLAG 
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INITIALIZATION 



42 

CODE 



SEQ 0054 



755 
756 
757 
758 
759 



m 811 



763 
764 
765 
766 

(5) 



i! 

788 
789 

m 
m 



mm 

"'0566 
0572 

3i?6ol 



mm 



mm 

025056 
000104 

002131 

000124 
026316 



m 

010636 
010642 



mi 



mm 

nm 
mi 



0662 013746 



46 

,746 

m 



mm mm 



005737 
001462 



012700 
104034 



010037 
000453 



012703 
005001 

012701 



;LET'S CREATE INTERNAL BITMAP 



ISS 

2S! 



mm urn 

010620 113737 002131 002130 
010626 



mm 
im 

000010 
002152 

mm 

002224 
000003 

COOOlO 

002304 

002264 

000001 

002240 

000050 
002152 
000024 



MOV 

CLRB 

MOV 

TST 

PEQ 

BISB 

ASL 

ADD 

CMP 

BNE 

MOVB 



SETVEC 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

TST 
BEQ 

SETVEC 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

TST 

BEQ 

TST 
BEQ 

CLKON 

MOV 

EMT 

REQTIM 
EMT 
MOV 
BR 



MOV 
CLP 
TST 
BEQ 
MOV 



|DRBUF,R4 
DCS(R4) 

if ,DRPRS 
Rl 

tfPRPOS+2#R4 

Iendbuf,r4 



DRPPSrOROT 



l#PRI 



vecti,»intr: 
priori, -(SP 

#TNTR1,-<SP 
VECT1,-(SP) 

CNTLR2 
4S 



VECT2.#INTR2,PRI0R2 
PRI0R5,-<SP) 

R2,-(SP) 

~ 'SP) 



»INTr2, . 

VRCT2c-(§ 
#3«-(SP) 
CSSVEC 
#10, SP 

CNTFLG 
FINDBF 

SVSCLK 
POWER 

fl/RO 
C|KWON 

C^REQTIM 
RO,LSTTIM 

POWER 



#40., R3 

Rl 



;bjt mask 

?CLEAR OUT DRIVES PRESENT 
JSTART OF DRIVE BUFFERS 
;ANV CSR? 

;N0, MO DRIVE THEN 
JINDICATE DRIVE IN BITMAP 
jNEJfT POSITION 
?NEXT DRIVE BUFFER 
?DONE 
J NO 

?SET UP DRIVES UNDER TEST 



JSET CONTROLLER I'S VECTOR 



JRUNNING TWO CONTROLLERS? 
?N0 

JYES SET CONTROLLER 2'S VECTOR 



?CONTINUE? 

;N0, GO PAST RESTART OF CLOCK 

?D0 WE HAVE SYSTEM CLOCK 
;N0 

;TURN CLK ON 

JREOUEST TIME 

?MAKE IT PRESENT TIME 
JGO TO END 



JWTLR2 



#20 



JMAXIMUM SECTOR IS 40 

llwS^JoiSfRoZLERS???? 
;Ng, START WC AT 5120 
?20 256 WORD BUFFERS 



ASSEMBLY ROUTINE 
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MACYll 
18:28 



30A(1052) 30-NOV-78 18:42 PAGE 2-3 
INITIALIZATION CODE 



(3) 010766 0101 

010774 





79. 



802 

m 

805 
806 

III 

III 



817 

ill 



151 

826 
827 
828 
829 
3) 
3} 



832 
833 

Hi 

836 
837 



mm 



01 
011064 
011070 



062701 000024 



mm 



0Q5737 

mi 

005301 

uim 



011016 000000 



011020 
511024 

>32 
136 
140 



nm 

011070 
011072 
011072 

011072 

nm 

m 



042701 
000301 



13 011640 060102 

ii liii iml 



104011 



mm 



002152 
000002 

177400 

002266 
002152 

002270 
002272 



012700 
104034 

103002 

005237 



000340 
011662 

mil 



4$: 



5$: 



ADD 

BUFFER 

MOV 

EMT 

MOV 

BCOMPLE 

PCS 

TST 

BEQ 

DEC 

DEC 

m 

HALT 

BIC 

SWAB 

MOV 

TST 

BEQ 

ADD 

MOV 

ASR 

MOV 



»20.,R1 
R1,R2 
R1,R0 
CSBUFF 
R0,R2 
TE 
4<; 

CNTLR2 

II 

Rl 

«5,R3 



|177400,R1 

R2,RUF1 
CNTLP2 

r!,R2 

R2,BUF2 

Rl 

ri,maxwc 



li,RO 
C?KWON 
BNCOMPLETE 
BCC POWER 



CLKON 

MOV 

EMT 



JWC TO 5125 PI-US 5120 
(GET BUFFER IF AVAILABLE 



JWAS AVAILABLE, THEN PR 

?TWO CONTROLLERS??? 
?N0 

;ONE 256 WORD BUFFER LESS 

JONE MORE LESS 

;IF NOT ZERO GO BACK 



?GET BUFFER FOR FIRST CONTROLLER 

?TWO CONTROLLERS?? 

;N0 

?SECOND'S BUFFER 

;CORRECT WORD COUNT 
?MAX WORD COUNT 



;TURN CLOCK ON? 
;WAS THERE A CLOCK? 
?YES, SET FLAG FOR ONEI 



ENDINIT 

EMT CSINIT 

ENDMOD 

CLNCODF 



BGNCLN 

SETVEC 

MOV 

MOV 

MOV 

MOV 



#TRPHAN,-(SP) 

KRRVEC,-(SP) 

#3,-(SP) 
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10 4037 
062706 

032777 



005737 
001412 




000010 
000340 

000200 
000100 
002222 

002152 

000200 
000100 
002224 



002326 
002324 



002316 
002264 



171014 is: 

171004 



170764 2S: 
170754 



3S: 



45 : 

L10017: 



EMT 
ADD 

SETPRI 

MOV 

EMT 

BIT 
BEQ 
BIC 

CLPVEC 

MOV 

EMT 

TST 

BEQ 

BIT 
BEQ 
BIC 

CLRVEC 

MOV 

EMT 

CLR 
CLR 

CLPVEC 

MOV 

£mt 

TST 

BEQ 

CLKOFF 
EMT 

BRESET 
EMT 

ENDCLN 
EMT 

ENDMOD 



C5SVEC 
#10, SP 



ml 



CSSPHI 

»CRDY,iCNTLRl 

PNTEN/faCNTLRl 
VECTl 
VECTl£RO 
CSCVEC 

CNTLR2 
3S 

|CRDY,aCNTLR2 
it 

/ECT 
VECTz/ 

CSCVEC 

INCALL 
OPCALL 
ERRVEC 
ERRVEC/RO 
CSCVEC 

SVSCLK 
4$ 



pNTEN,0CNTLR2 

VECT2 

VECT2/R0 



JPRIORITY TO SEVEN 



JWAIT FOR CONTROLLER TO FINISH 

?CLEAR INTERRUPT IF PENDING 
?RELEASE VECTOR OF FIRST CONTROLLER 



?TWO CONTROLLERS 
?N0 

JWAIT FOR OTHER CONTROLLER TO FINISH 

?CLEAR OUT INTERRUPT ENABLE 
JVES, WELL RELEASE IT'S VECTOR 



CSKKOFF 
CSRESET 
CSCLEftN 



;THIS IS POR LSI-11 CPU'S 



BGNMOD ADDCODE 
BGNAU 

MOV 
MOV 
MOV 

is: TST 

BEQ 
ADD 
ASL 
DEC 



#DPRUF,R4 
tfl,Rl 

2? 

«PPPOS+2#R4 



;START OF DRIVE BUFFERS 

>MASK TO FIND DRIVE 

?SAVE WHICH TO FIND 

;THIS ONE 

JYES 

?NEXT 

;NEXT MASK 
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002130 




'-mil 



OOOQIO 
""" 6 
4 



000076 
000124 



4S: 

5S: 

ENDMOD 
BGNMOD 
BGNDU 



002126 is: 
3S: 

ENDMOD 
.SBTTL 
BGNMOD 
SETWCr: 
000104 1$: 



PR 

BISB 

GPHARO 

MOV 

EMT 

MOV 

MOV 

MOV 

ASR 

CLR 

DEC 

BNE 



IS 

Rl/DRUT 

CSGPHRO 
R0,P1 

PO 

(R4) + 

4§ 



JTNSEPT IN DRIVE UNDER TEST 



?SETUP TO CLEAR STATS 



TST 
BNE 

MOV 

TST 

BEQ 
DEC 
ADD 
BP 

MOV 

JSP 



INCALL 

3S 

»fDRBUF/R4 

RO 

IS 

RO 

|tpRPOS + 2/R4 
2S 

{tPEQ/WHY 
P5/0DPDRV 



2S: 



GLOBAL SUBROUTINES 
GLBSUP 



MOV 
MOV 
CMP 
PKE 
MOV 
ADD 
DEC 
BNE 



#8.,R1 

#DRRUF,R2 

|CS(R4),DCS(R2) 

R4-D0WCK(R2) 
|PRPOS+2#R2 
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011420 000205 




026462 C00104 000104 
001002 

mm mm 



milt 
ii WW 



62706 000010 

mi^ mm 
^i^i? 



2S: 



RTS 

MOV 
MOV 
CMP 
BNE 
CLR 
ADD 
DEC 
BNE 
PTS 



|dR^UF,R2 

DCS(R4),DCS(R2) 

25 

0ClWCK<R2) 

tfPRP0S*2/R2 

Rl 



m 



;ROUTINE TO FILL BUFFERS WITH INFO 

BDRSEL/DRSEL(P4) 
BCSR,DCS(R4) 
TEMPI, BBA(R4) 
R2/PSECPT(R4) 
T.luT 
1< 

TRPFLG 

ERRyEC£«TRPHAN,#340 



FILINF: MOV 
MOV 
MOV 
MOV 
TST 
BEQ 



OOCOOl 000104 



mm 

006650 
000003 

000010 

mii\ 

002316 
000124 



2S: 
is: 



CLR 

SETVEC 
MOV 
MOV 
MOV 
MOV 
EMT 
ADD 
TST 
TST 
BNE 
MOV 
BIS 
MOV 
BIT 
BNE 

PRINTF 

CLR 

BISB 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

DEC 
CLR 

CLRVEC 

MOV 

EMT 

ADD 

RTS 



<i340,-(SP) 
|TRPHAN,-(SP) 
ERRVEC#-{SP) 

C?§VEC 
TRPFLG 

3<; 

DRSELJR4),R0 

i?5S6cSfR4) 
|l/(aDCS<R4) 



;SET DRIVE SELECT BITS 

JSET CSR 

?SET R/W BUFFER 

ISETUP BAD SECTOR POINTER 

;D0 WE AUTOSIZE? 

;N0, SKIP 

JCLEAR TRAP FLAG 
ySETUP TO CATCH TRAP 



;Din TRAP OCCUR 
?VES IGNORE DRIVE 
jVESr FIND OUT IF DRIVE 
>HAS DRIVE READY POSTED 

;TS DRIVE READY HIGH? 
;YES, CHECK NEXT 



«FRMT16rDCS(R4),<B,nRSEL*l(R4)> 
-(SP) 

nRSELtUR4)#(SP) 

DCS(R4U-fSPS 

#FRMT16,-(SP) 

SP|.RP 
CSPNTF 
#10, SP 



UUT 

DCS(R4) 

ERRVEC 

ERRVEC/RO 

CSCVEC 

#PRP0S+2/R4 

R5 



?ONE LESS DRIVE NOW 
;TAKE DRIVE OUT OF BUFFER 
;RELEASE THE VECTOR 



;UPDATE POINTER 
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011670 



97. 
972 
973 

|]| 

Vl^ 011670 
'"-^ 011670 
0ii672 
011676 
011702 
011706 



mil 




007044 
000004 



000012 
000002 



TRPHAN: INC TRPHAV 
RTI 

?ROUTINE TO PRINT STATISTICAL REPORT OF DRIVE(S) 
REPORT: 



PRINTS 

CLR 

BISB 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

TST 

BEQ 

PRINTS 
CLR 



BISB 

MOV 

MOV 

MOV 

EMT 

ADD 

PR 



2$: 



#fmt1,»time, hour, minute, sec0nd/#mrlcs,dcs(r4)r«drnm,<b,drsel+l(r4)> 

PrIe^-h( 



#nRNM 

Di 



JCS(R4), 
#MRLCS,-<SP 
SECOND, 
MINUTE, -15 
HOURt-(SP) 



(SP) 



nuuK,' 
#TIME 
#FMT1 



Jfmti, 

C5PNTS 
#24, SP 

DPH0UR(R4) 
IS 

«FMTS1B,<B,DPH0UR(R4)>,<B,DPMIN(R4)> 
-(SP) 

DPMIN(R4),(SP) 
iyj^?P4|g(SP) 



;00 WE HAVE ANY DROPPED TIME 
JNO, THEN PRINT Rf?NNING 



jiFMTSlB,- 
63, -(SP) 

spSro 

CSPNTS 
|10,SP 




FMTSIA 

FMTS1A,-(SP) 

SP,P0 
CSPNTS 
j*4,SP 

SERNM2(P4),-(SP) 
|FMTs5r-(SP) 

CSPNTS 
ftl2,SP 



R XF pf ? R 5 ) ( Ip ) ' ' ^"^^ ^"^^ ^ ^ ' ^ '''' ^ ^ ^ ' ^ '^'^ ^ ^ ^ ' '^''^ ^ ^ ^ ^ 



I 
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m 



6 
3 
4 
4 

9i 

9' 



(4 

991. 

m . 

(9) 



994 
995 




2336 
234- 

lit 

2352 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
EMT 
ADD 

PRINTS 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

PRINTS 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

PRINTS 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

PRINTS 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

PRINTS 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

RTS 



RXFR2(R4),-(SP) 
RXFP3(R4)#-(SP) 

SP/RO 
C|PN|S 

fpMf S2B^WXFR3(R4),WXFR2(R4),WXFR1(R4) 

WXFRHR'* 

WXPR2(P ..^ 
WXFR3|R45«-var 
lfFMTS2B.-tSP) 

U'm 

C^^NTS 

PMfi3,DERCNT(R4),SKECNT(R4),TRERR(R4),DATCER(R4) 
DATCER<R4)/-(SP) 



mill 



TRERR(R4). 

skfcnJjrI 



DERCNT(. 
#FMTS3£-<§ 

C5PNTS 
#14#SP 

|FMTS3AgERRCNTJJ4),SFTCNT(R4) 
CJPNTS 

«FMfs4fDCRCER(R4),HCRCER(R4)/NXMCNT{R4),HNFERR(R4) 

HNFERR(R4)/-(SP) 

NXMCNT(R4)/-(SP) 

HCRCER(R4),-(SP) 

DCRCER(R4)#-(SP) 

»FMTS4,-(SP) 

|5,-(SP) 

SP,RO 

CSPNTS 

«i4/SP 

#»^MTS5,DLTCNT(R4),OPICNT(R4) 



0PICNT(R4 
DLTCNT(P4 
#FMTS5/-f 
#3^-(SP) 
SP,RO 
CSPNTS 
«10,SP 
PC 



(SP 
(SP 



ASSEMBLY ROUTINES 
CZRLEB.Pll 3^ 



N0V.78 mV^' ''''''''' 




mm mm '''''' 

000420 



002302 

004537 021312 
012536 062704 000124 



30-NOV-7B 18:42 
GLOBAL SUBROUTINES 



.SBTTL PROGRAM MAIN LOOP 



BGNTST 

;MAIN PPOGRAf* LOOP 

'EESSE*" ?JLL RANDOMLY PICK ONE OF THE DRIVES TO 
I^Pf9Pll**L9f,iPTXQS-r,««S HILL ALWAYS pick one of FOUR 
^SLIISF^RRHIS (uNE OR TWO CONTROLLERS) "DRUt" WILL BE 
?CHECKED TO SEE IF DRIVE IS ON SYSTEM. ONCE DRIVE IS PlCrED 
^JSfSr.* FUNCTION WILL PE SELECTED RANDOMLY PGR THAT ^^^^^'^^ 
JDRIVE.^ FUNCTIONS OF CONTROLLER RESET^. GET STATUsi SEEK^ READ, WRITE 
;WILL BE SELECTED, EACH FUNCTION WILL fiAVE IT'S Owfi rOUt!nE 
?T0 GET PARAMETERS FOR THE DRIVE. ^ u n kuuhnc 



MTEST: 



66S 
13$ 



TST 
BEO 
MOV 
MOV 
INC 
BR 

MOV 

MOV 

MOV 

MOV 

BITS 

BEQ 

MOV 
BTS 
MOV 
DEC 
PNE 
BIT 
BNE 

MOV 
JSR 

BP 

JSR 
CLR 
CLR 
CLP 
TST 
BNE 
TST 
BEQ 



WPINIT 
1615 

WRINITeR4 
WRPOS^Rl 
STFLG 
16$ 

itDRBUF,R4 

P4,WRINIT 
R1 ,WRPOS 

rISdrut 

I5l 



20C,BDCS{R4) 
RSEL|R4),gDCS(R4) 



ttC.,R0 

RO 

P§DY,flDCS(P4) 
14$ 

<fDNPDY|-WHV 

R5,DRDRV 

15$ 

R5|.PDPDSC 
PRFLGS(P4) 
DCWCK(R4) 
RSEEKfR4) 
WRrPG(R4) 
90$ 
STF 



LG 



R5,V.'RPACK 
«PRPOS+2,R4 



''IIP.^I''. "RI^E INIT IN PROGRESS 

HW IF„NOT INIT FROM PWR FAIL 

JYUP - RESET R4 POINTER 

?ANO THE DRIVE POINTER FOR INIT 

?FAKE OUT THE START FLAG 

?SN0 CONTINUE WITH THE WRITE CODE 

;GET DRIVE BUFFERS 

?MASK 

JCOPY R4 

;and. ri pointers 
;drive under test 

?N0 

;CHECK IF DRIVE THERE 
? ST ALL 



JGO GET BAD SECTORS 



;SEE IF WRITE IN PROGRESS FLG SET 
;VUP - RE-INIT THIS DRIVE 



;NEXT DRIVE 
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002144 
C02146 



004165 
006507 
000002 



0000Q6 
000000 



025050 
002130 



022356 

002236 007516 





MOV 




ASL 




ASLB 




BCC 




CLR 


12S: 


PRJNTF 






MOV 




MOV 




MOV 




EMT 




ADD 




SETPRI 








EMT 


main: 


JSP 






peroth: 


BIC 

MOV 


1$: 


TST 


BEQ 




ASL 




DEC 




BR 


2$: 


TSTP 


BNE 




FRRSF 




TRAP 




.WORD 




.WORD 




JMP 


5§! 


BITB 




BEO 


JHE NOW 


HAVE A 


JfS FREE BEFORE 



R4,WRINIT 
WPPOS 



16$ 



«FMT14,«MS 
tfMSTART,-! 
|FMT14fc-(S 
#2,-<SP) 




L0NUM,R2 
SySMSK,R2 



170./NODRIV 

pER60DE 

NODRIV 

ENDOFPROGRAM 

R1,DRUT 
MAIN 



JCOPY FOR POSSIBLE PHR FAIL 
JSHIFT THE POSITION FLAG ALSO 
;OONB? 

;N0 GO FOR NEXT ONE 

JCLRAR WRITE INIT FLG ... ALL 



^PRIORITY TO ZERO 

;get a DRIVE?(LUN) 
?GET THE SELECTED DRIVE (LUN) 
JMASK TO DRIVES ON SYSTEM 
JLET'S SEE IF DRIVE IS THERE 
?HAVE WE GOT PROPER MASK YET 
?YFS, GO TO 2S „ „ 

;N0c SHIFT FOR NEXT DRIVE 
JOECREMENT DRIVE NUMBER 
;G0 CHECK NEW DRIVE NUMBER 
;ANy DRIVES ON LINE 
;YES, CHECK 

}H0 DRIVES 



?IS THIS DRIVE PRESENT? 
JNQ, GO BACK TRY AGAIN 



DRIVE, CHECK TO SEE IF IT'S CONTROLLER 



JSR 
CMP 



DORPT 
EMT 



R5,GETSYS 

interval/tyint 
iIterval 



CSDRPT 



025056 

mm 



MOV 
MOV 



TST 
BEO 



#DPRUF/R4 

L0NLIM,R2 

SVSMSK,R2 

R2 

4S 



?GET PRESENT TIME OF SYSTEM 
;TIMF TO PRINT REPORT 
?N0£ PERFORM FUNCTION 
yVES, START INTERVAL OVER 

?PRINT STATISTICAL REPORT 

JGBT START OF DRIVE BUFFERS 
JGET RANDOM DRIVE BACK (LUN) 
JMASK TO SYSTEM SYS 
;D0 WE HAVE BUFFER FOR THAT DRIVE 
?YES^ GO CHECK IT'S CONTROLLER 
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ADD 

DEC 

BR 

BIT 

BEQ 

PIT 

BNE 



«PRPaS+2,R4 
R2 

#ilT7,aDCS(R4) 
MAIN 

#BIT6,0DCS(R4) 
MAIN 



;N0, UPDATE FOR NEXT BUFFER 
?DOWN COUNT DRIVE NUMBER (LUN) 
;G0 BACK AND CHECK FOR FOUND 
;CONTROLLER ASSOCIATED WITH DRIVE 

INTERRUPT BEEN SERVICED? 



;WE CAN NOW PROCEED IN GETTING A FUNCTION AND RELATED DATA 
JFOR THE DRIVE RANDOMLY. R4 HAS DRIVE BUFFER POINTER 



TST 
BEO 
CMP 
BLO 
MOV 
BR 

CMp 

BLO 

MOV 

BR 

CMP 

BLO 

MOV 

BR 

MOV 

ADD 

CMP 

BLO 

MOV 

BR 

CMP 

BLO 

MOV 

JSR 

JMP 

TST 
BEG 
MOV 
MOV 
JMP 
TST 
BEO 
JMP 

TST 

BNE 

BP 

JMP 

BIT 

BNE 

JMP 

JMP 



T.DRP 

iSRCNT(R4)/BRLMT 
9S 

|FRLMTM,WHY 

sHcNT(R4),SFLMT 
ICS 

ffSFEMSG,WHY 

lis 

JA|cEP(R4),T.DCD 

#dcdmsg/why 
IkIcnt(R4)^pi 

TRERR(R4),R1 
R1,SELMT 

|SEPLMT/WHY 

DeIcNT(R4)/DRLMT 
8$ 

ftDERMSG/WHY 

RSeDRDRV 

MAIN 



JDROP ON ERROR LIMITS REACHED? 
;N0 

;HARD REACHED? 



?SOFT REACHED? 



;ORIVE ERROR REACHED? 



?DROP THIS DRIVEIfl 
;G0 GET ANOTHER 



D0WCK(R4) ;WRITE CHECK NEEDED 

80S ?N0 

DCWCK(R4)*R4 ;GET ONE THAT NEEDS TO BE WRCHK'D 
#WRCHK,FUNC(R4) ?WR 



RETRY(R4) 

78S 

ISSUE 



?WRITE CHECK 
;ISSUE IT 
?DOES DRIVE HAVE RETRY IN 
?OR0GRFSS, NO CONTINUE 
;nO RETRY COMMAND 



RSEEK(R4) yPECOVERY FROM SEEf ERROR 

77$ ?N0 

GETFNC ;N0, CONTINUE 

RPDFNC JGO'rEAD 

i|SKD0N,PRFLGS(R4) ;SEEK BEEN VERIFIED 

79$ ;N0 

SKFNC^ ?G0, TRY TO RECOVER 

RPHFNC ;G0 VERIFY SEEK 



LIMITS OF ERRORS/OPERATIONS 
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032764 OOCOOl 
001402 

000137 013712 



013330 
013334 
0U336 
0I334Q 
013342 



mm 




013702 
000172 



021214 



002136 
177770 



000007 



017470 



000056 GETFNC: BIT 
BEQ 
JMP 



026437 OCOOOO 007514 



98S! 



6$: 
5$: 



TST 

REQ 

CMP 
BLO 
MOV 
ADD 
CMP 
BLO 
MOV 
JSP 
JMP 

JSR 



WOV 
BIC 
BNE 
INC 
CMP 
BNE 
DEC 
ASL 
JMP 



|SKD0N/PRFLGS(R4) 
RDHFNC 



;SEEK NEED TO BE VERIFIED? 
?N0, CONTINUE 
IGO VERIFY SEEK 



T.STA 

98$ 

SKCNT(R4),SKLMT 

9es 

RXFR3(R4),Rf> 
WXFR3(R4),R0 
RO,DALMT 
98§ 

#SOPLMT,WHY 

R5/DRDRV 

MAIN 

R5,RAND 



?D0 WE WISH TO DROP ON OPR LIMITS 

;N0 

;PAST THE SEEK LIMIT?? 
?N0, THEN GO TEST 
?GET READ COUNT 
;ADD IN WRITE COUNT 
JLIMIT REACHED?? 
?N0, THEN GO TEST 

JDROP THE DRIVE 

?G0 FOR ANOTHER DRIVE 



JGET 
JARE 



(GET -- 
(SEEK) 
HEA 



, LEGAL FUNCTIONS 
I CHECK) 
STATUS) 




JGST 
;MASK 
?IF O 



RD HEADER) 
^ iWRTTE) 
6 (READ) 
7 ARE MOT LEGIT 
IT 
TO 0-7 
MAKE I 



)aLIST(R2) 



?IS IT 7? 

?IF 1, MAKE 6 

ySHIFT LEFT (X2) 

;G0 TO FUNCTION ROUTINE 



012764 0Q0Q04 
012764 000003 
000137 014052 



.SBTTL ROUTINE TO SETUP AND ISSUE GET STATUS 

;WE GFT HERE BY FALLING THRU "LIST" WITH S RANDOM FUNCTION OF 2. 
GSTFNC: 



MOV 
MOV 
JMP 



«GSTAT,FUNC(R4) ;LOAD GET STATUS 
ftGSBIT,BDA(R4) ;SET GSBIT IN COMMAND WORD 
ISSUE ?Gn ISSHE FUNCTION 



.SBTTL ROUTINE TO SETUP AND ISSUE SEEK FUNCTION 

?WE GET HERE BY FALLING THRU "LIST" WITH A RANDOM FUNCTION OF 3* 
;WE WILL CALL "RAMD" FOR A NEW DISK ADDRESS TO SEEK 
;T0. ANY TRACK BUT LAST IS LEGAL. WE WILL ALSO INCREMENT 
;IT'S SEEK COUNT 

SKFNC: TS 



RSEEK(R4) 
9RS 



JTRVING TO RECOVER 
;N0, CONTINUE 
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004537 

mm 

020264 
001002 
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050 
122 



021214 
000122 



98$: 



MOV 

MOV 

BIC 

BIC 

BR 

JSP 

MOV 

BIC 

CMP 

PNF 



LSTHDR(R4),R1 
PRP0S{R4),R2 

4? 

R5,RAND 
L0NUM,R2 
SECMSK,R2 
R2^PRP0S(P4) 



JVES SET UP FOR RESEEK 
;Ta CYLINDER 
;HEAD SET IN LATER 

;SKIP RANDOM PART 
JGET A RANDOM NUMBER 

?LEAVE CYL AND HEAD 
;0N THAT TRACK ALREADY 
?NQ, CONTINUE 
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SEO 0066 




177677 

007534 007536 

007534 

000100 
007534 



000200 
007536 

P00012 

100000 

000122 
002140 



13634 

3642 
3644 
.3650 
.3654 
- 13662 

mm 

-13674 



mi 
m 

132764 
001402 

010264 



90S! 



955 
94$ 



92$: 



'500050 



000122 

007530 007532 
007530 

000100 000122 
000100 000122 



JMP 

CLP 

MOV 

BIC 

CMP 

BNE 

MOV 

BR 

BIC 

CMP 

BHIS 

INC 

CMP 

BEQ 

ASR 

ADD 

BR 

CMP 

DLOS 

INC 

ASL 

BIC 

BR 

MOV 

BIC 

MOV 
MOV 
BIS 
CMP 
BNE 
TST 
BNE 
BIC 
BR 
BIS 



GETFNC 
R3 

|?^?677/R0 
T.MXC/T.MNC 

95$.. 



T.MXC,R2 
92$ 

#HeAD,P2 
.MXC/R2 



?VES, DON'T RESEEK 
yCOPY 

;LEAVE ONLY HEAD 
?MIN AND MAX CYLINDERS THE SAME 
;N0, BRANCH AND STAY IN LIMITS 



AD,P2 



CYLINDER MAX/MIN 
LCULATE DIFF_AND SEEK 



9^$ 
R3 

P3<»10. 

985 
R2 

#BIT7^R2 
95$ 

T.MNC,R2 

5^ nc. 

R2 

|BIT15,R2 

pyOS(R4),Rl 
CVLMSK^Rl 

PPPOS(R4),LSTHDR<R4) 
R2,PRPOS(R4) -""*■ 
R0,PRPOS(R4) 
T.MXH/T.MNH 
96$ 
T.MXH 
97$ 

#HEAD,PRP0S(R4) 

96$ 

«HEAD,PRP0S(R4) 



?STRIP OUT H.S. BIT 
>IS ADDRESS LESS/EQUAL THAN MAX 
;YES, CHECK LOW END 



;HALF IT AND CHECif AGAIN 
JJUST.TO MAKE_N0N ZERO, 



?G0 BACK AND CHECK AGAIN 
JIS MTN GREATER/EQUAL THAN AD 
?YES, CALCULATE DIFF AND SEEK 



?N0- DOUBLE IT 
;BIT 15 CAN'T SET 
?G0 CHECK MAX/MIN AGAIN 
;GET PRESENT DISK POSITION 
?CLEAN OUT ITS SECTOR BITS 

ISAVE LAST 
,NEW HEADER AFTER SEEK 
?SET IN RANDOM HEAD GOTTEN 
?MIN AND MAX HEAD SELECT THE SAME 
JNO, THEN WE CAN USE BOTH SURFACES 
;WHICH IS OUR SURFACE FOR USE 
;TOP SURFACE BRANCH 
?LOWER SURFACE ONLY 

;TOP SURFACE ONLY 



97S: 
96 1 : 

IcALCULATE THE DIFFERENCE WORD AND STORE IT IN BDA 



0100 

0020 
0040 
0066 

m 



000122 



000044 



4S! 
35: 



SUB 

BPL 

NEG 

BR 

BIS 

BIS 

BIT 

BEQ 

BIS 

MOV 

MOV 

MOV 

JMP 



R1/R2 

R^ 

iilGN,R2 
#MK,R2 

|HEAD,PRP0S(R4) 

#SKHS,R2 
R2/BDA(P4) 
R2,DIFW0(R4) 
»SEEK/FUNC(R4) 

ISSUE 



ySUBTRACT PRESENT FROM NEXT 
;TF POSITIVE RESULT GO TO 1$ 
;NEG RESULT, NEGATE IT 
;G0 SET DIRECTION OUT 
^DIRECTION OUT, MARKER 
;MARKER BIT 

?WHICH SURFACE SELECTED? 
JTOP, THEN 3S 
JBOTTOM SET HEAD BIT 
JMOVE DIFFERENCE WORD TO DA 
?LOAD DIFFERENCE WORD 
;LOAD SEEK 
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.SBTTL ROUTINE TO LOAD READ HEADER AND ISSUE IT. 

?ME GET HERE BY FALLING THRU "LIST" WITH A RANDOM FUNCTION OF 4. 



013712 
013720 



miVi °.'im 



RDHFNC: MOV 
JMP 



#PDHDR,FUNC(R4) JLOAD READ HEADER 
IS""" 



ssnE 

SBTTL ROUTINE TO LOAD WRITE DATA COMMAND 



mi 



013724 
013732 
013734 

013746 
013752 



013756 
013762 
013770 
ni3776 



mil 

014032 
014Q34 

014046 



022764 
001002 
000137 



000137 



004537 



077700 000122 

013366 
007560 

014002 
022576 



00 4537 017230 

012764 000012 0QQC44 

uni'i kim 



077700 000122 




WRTFNC: CMP «77700,PRPQS(R4) ;0N LAST TRACK? 

BNE 9P$ ;N0, CONTINUE 

JMP SffFNC ?YES/ WE'LL SEEK OFF IT!! 

98S: TST T.ROF ;READ ONLY 

BEQ 97$ ;N0 

JMP RDDFNC JYES 

97$: JSR R5,GWCnA ;GET WORD COUNT, DA 

?WE NOW HAVE SECTOR AND WORD COUNT, LET'S WRITE BUFFER IN MEMORY 
;T0 WRITE OUT TO DISK 

?FORMAT: WORD 1 - » OF WORDS IN SECTOR 

WORD 2 - ADDRESS OF PATTERN WRITTEN ON SECTOR 



WORD 3 - 127 DATA PATTERN 



JSR 
MOV 
MOV 
JMP 



R5,WRBUF 

<tWRlTF,FUNC(R4) 

#yWRIPG(P4) 



?WRITE BUFFER INTO MEMORY 
JLOAD WRITE 

;SET WRITE IN PROGRESS FLAG 
?G0 ISSUE FUNCTION 



.SBTTL ROUTINE TO LOAD READ DATA COMMAND 

JTHIS ROUTINE WILL FIPST CLEAR OUT THE BUFFER ARES, 
;SELECT A RANDOM NUMBER OF WORDS TO READ AND A 
?RANDOM SECTOR ON THE PRESENT CYLINDER TO READ FROM 

RDDFNC: CMP 
BNE 
JMP 

99$: JSP 
97$: MOV 
MOV 

is: CLR 
INC 
BNE 
MOV 
JMP 



#77700, PRP0S(R4) >0N LAST TRACK? 
09$ ;N0 CONTINUE 

;YES SEEK OFF IT. 
JGET WORD COUNT, OA 
;CLEAR OUT BUFFER AREA 
;S0 WE KNOW READ 
?WORKED! I 



SKFNC 
R5,GWCDA 
BMP(R4)*R2 
aBBA(P4),Rl 
(Rl) + 



II 



|PEAD,FUNC(R4) 
ISSUE 



;LOAD READ 



.SBTTL SETUP CONTROLLER AND DRIVE INFO FOR INTERRUPT PROCESSING 



?WE COME HERE BEFORE ISSUING ANY FUNCTION SO THAT ON 
?WE CAN PROPERLY PROCESS THE INTERRUPT- WE WILL 
;CONTROLLER WE ARE WORKING WITH AND StBrE OFF TH 
JPOINTER IN IT'S "LSTDR" 



CHECK WHICH 
DRIVE BUFFER 
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002150 issue: 



CMP 

BNE 

MOV 

BR 

MOV 

BIS 

JSR 

JMP 



^CS(R4)/CNTLR1 

R4,LSTDR1 

^l,l,STDR2 
«INTEN,FUNC(R4) 
R5/LDFUNC 
MAIN 



yORTVE ON CONTROLLER 1? 
?N0, ASSUME ON CONTROLLER 2 
JPUT BUFFER POINTER IN I 
?SKIP OVER NEXT INSTRUCTION 
?PUT BUFFER POINTER IN 2 
; ALLOW INTERRUPTS 
?NQ WE ISSUE IT 
;G0 BACK AND DO ANOTHER 



.SRTTL ROUTINE TO LOAD FUNCTION 



?CALL JSR R5/LDFUNC 
MLL INFORMATION MUST BE S 
?R4 HAS POINTER TO BUFFER 



LDFUNC: MOV 
BIT 
BNE 

ERRSF 
TRAP 
• WORD 
.WORD 

IS: MOV 
MOV 
MOV 
MOV 
BIS 
BIS 
BTC 
MOV 
BIC 
RTS 



DCS(R4),R3 
|bIT7,(R3) 

200.£PRGER 

t||rcode 



UP IN DRIVE BUFFER 

JGET CSR FOR DRIVE 
?CAN WE ISSUE COMMAND? 
JVES, GO ISSUE COMMAND 

JTHIS ERROR SHOULD NEVER PRINT 



iBBA(R4)£BA(R3) JLOAD BUS ADDRESS REGISTER 

BDA(R4Lda?R3) ?L0AD DISK ADDRESS REGISTER 

BMP(R4),MP(R3) jLOAD MULTI-PURPOSE REGISTER 

-"NC(P4),BCSADR(R4) ?G 

— ' fR4)^BCSADr 

IDRDY^BCSA 



BCSADR(R4) 



0RSEL(R4)^BCSADP<R4) 

fCRDYlDRDY^ 

#OPl£ 

BCSAD 

#CRDY 

R5 ?EXIT 



,GET FUNCTION 
JSET DRIVE SELECT BITS 
;SET CRDY:DRDY IN IMAGE 
JWE'RE CLEAR BIT 10 FOR DRIVE 7-4 
JLOAO CSR 
?ISSUE FUNCTION 



.SBTTL INTERRUPT SERVICE ROUTINES 
BGNSRV INTRl 



ON INTERRUPT WE CHFCK FOP ERRORS FIRST, IF NO ERRORS WE 
CHECK FUNCTION PREFORMED. WE ACT ACCORDING IF FUNCTION IS: 

1- WRITE CHECK - NOTHING IF NO ERROR 

2- GET STATUS - READ AND CHECK DRIVE STATUS 

3- SEEK - NOTHING RTlJ SET RD HOR AS NEXT COMMAND 

4- RDHDP - COMPARE HEADER TO PRESENT POSITION 

5- WRITE - UPDATE XFER COUNT, EXIT 

6- READ - COMPARE DATA IF REQUESTED, UPDATE XFER COUNT, EXIT 

ALL SUCCESSFUL EXITS FROM INTERRUPT ROUTINE TEST RETRY 

LIMIT IF RETRY IS LESS THEN LIMIT THEN LOG SOFT ERROR, CLEAR RETRY 

IF RETRY = P, THEN NOTHING 
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JON ERRORS - IF DRIVE ERROR - UNDER NON- INTE RRUPT 
} DO: GET STATUS - INVESTIGATE ERROR TYPE 

; DO: DRIVE RESET - IF ERROR OCCURS AGAIN - FATAL ERROR 

; IF NO ERROR, EXIT 

J DRIVE ERROR IS LOGGED UNDER ALL CIRCUMSTANCES 



IF DCRC, HCPC, HNF CHFCK BAD SECTOR LIST, IF IN LIST 
IGNORE ERROR EXIT AS NORMAL, IF NOT IN LIST 
INCREMENT RETRY? IF RETRY LIMIT EXCEEDED 
LOG HARD ERROR, ELSE RETRY FUNCTION 

IF OPI,NXM INCREMENT RETRY CHECK RETRY LIMIT 
IF RETRY EXCEEDED LOG HARD ERROR EXIT 
IF RETRY NOT EXCEEDED RFTRY FUNCTION 



INTPI: 


MOV 




MOV 




BR 


INTR2: 


MOV 




MOV 


save: 


MOV 




MOV 




MOV 




MOV 




MOV 




MOV 




MOV 




MOV 




MOV 




MOV 




MOV 




MOV 




MOV 




MOV 




MOV 




MOV 




CLR 




MOV 




MOV 




MOV 




MOV 




MOV 




MOV 




MOV 




TST 




BMI 




JMP 



R4e.-tSP) 

LSTDR1,R4 

SAVE 

LsfDlS?<^4 
E.CS, 

E 
E 
E 

f.mp5',-Csp5 
chksec,-(sp) 

HDRFND, ^-"^^ 
TEMPI, 



.CS,-CSP) 
.BA,-(SP) 
.DA,-(SP) 
.MP,-(SP) 



;SAVE PRESENT R4 VALUE 

?GET THE DRIVE BUFFER OF INTERRUPTING DRIVE 

JGO SAVE R0-R3 

?SAVE PRESENT R4 VALUE 

;GET THE DRIVE BUFFER OF INTERRUPTING DRIVE 



EC,-(SP) 
ND,-(SP) 
. 1,-(SP) 
WHY,-(SP) 
OPCftLL,-(SP} 
1NCALL,-(SP) 
R3,-(SP) 

Pi,-(sp) 

RCS-(SP) 
WR1PG(R4) 
DCS(R4),R3 
CS(R3),E.CS 



BA,.,., 
DA^R3i 
MP(R3) 
MPfP3) 
MP(P3) 
E.CS 
IS 

CHKFNC 



E.BA 



??AVE R3 
>R2 

m 

?CLEAR THE WRITE IN PROGRESS FLAG 
?GET CSR FOR INTERRUPT 
?SAVE ALL REGISTERS NOW 1 1 



?ANV ERRORS? 

?YES, GO SOLVE ERROR MYSTERY 

?N0, GO SEE IF WE HAVE TO DO ANYTHING 



.SBTTL CONTROLLER ERROR CHECK ROUTINE 

?WE HAVE SOME SORT OF ERROR LET'S FIND OUT WHICH ONE 

;IT IS. 



1 
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Hi' 



514416 Kl LJ IVt 

014434 000137 

01 " 



632^37 



002254 
040000 

SoJi 

lull 




4146 
0030 



000064 1$: 
002250 

002250 2$: 



002250 23$! 
000052 



002250 3$: 
002250 



000052 4S: 



MOV 
BIT 
BEQ 
JMP 
BIT 
BNE 
JSR 
BIC 
CMP 
BEQ 

INC 

ERPDF 

TRAP 

.WORD 

.WORD 

.WORD 

JMP 

BIT 

INC 
JMP 

BIT 

BNE 



ERRSF 

TRAP 

.WORD 

.WORD 

.WORD 

BREAK 

EMT 

BR 



MOV 
INC 
BR 



E.DA,LSTDA(R4) 
SpERR/E.CS 

CrOERR 
#DRDY,E.CS 

ii!r,ETDST 
#100, Rl 
Rl4»34 
23S 

ERRCNT(R4) 
1000.#NORDY/ERR 

NORDY 
ERR9 

EXITl 



l^NXM/E.CS 

8MTNXM,RTYPE(R 
N)fMCNT(R4) 
Ills 

#PIT12IBIT11,E. 

5$ 



?SAVE DA FOR SOFT ERROR PRINT 
;DRIVE ERROR? 
JNO, CONTINUE 

JYES, GO CHECK DRIVE ERROR 

;ORIVE READY THERE 

?YES, CONTINUE CHECKING 

>NO,GET DRIVE STATUS 

?GET RID OP HEAD 

?ALLOW ONLY SEEK TRACKING STATE 

JHAS 34 SKIP ERROR 

HNDICATE HARD ERROR 



;NON-EXISTANT MEMORY? 



|OPI,E.CS 

10.£UOERR,ERR1 

- ERCODE 



IS 



;l6g ERROR 

JCHECK RETRY/ EXIT BACK 

CS ?QUALIFING BITS SET? 
?YES, CAN'T BE OPI ALONE 

;OPI SET? 
;YES/ CONTINUE 

?WE HAVE AN UNDI AGNOSABLE CONDITION, ONLY COMPOSITE SET 



UDERR 
ERRl 



C$BRK 
33$ 



#MT0PI/RTYPE(R4);SRT UP FOR "OPI" PRINT 



0PICNT(R4) 
111$ 



JLOG ERROR 
;CHECK RETRY EXIT BACK 



?WE KNOW IT'S NOW 
?CHECK FOR EACH 



EITHER DLT/ DCRC/HNF, OR HCRC 



002000 002250 55: 



BIT 

BNE 



|OPI,E.CS 



014614 032737 010000 002250 



;IT'S NOW DOWN TO DLT OR DCRC 
BIT #DLT/E.CS 



;OPl QUALIFIER SET? 

?YES, THEN IT'S HCRC OR HNF 



?0ATA LATE? 
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06 
__42 
0122 



BEQ 
MOV 
INC 
BR 

MOV 
DEC 
DEC 
JSR 
TST 
PNE 
INC 
MOV 
CMP 
BNE 
BR 

TST 

BEQ 

PRINTF 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

JSR 

BR 



Ills ?CHECK F?ETRY/ EXIT 



E.DA,CHKSEC 
LSTDA(R4) 
CHKSEC 
R5,CKBDSC 
HDRFNO 



?SST.OP„SECTOR TO LOOK FOR 
;D0WN COUNT FOR PRINT OUT 
?DOWN COUNT FOR LOOP UP 
;CHECK BAD SECTOR LIST 
?WAS HEADER THERE? 

ffpii?§R'cll^f8j4li?7 ™ ''"NT 

llll 



110$ 
--RCE 



WRCHK,FUNC(R4) 



#FMT14,#DMPDCK 

R5/DMPBUF 
111$ 



?DUMP BUFFER? 
}m, EXIT 



?DUMP BUFFER 



?EKIT 



;IT'S NOW EITHER HNF OR HCRC. 



?IF HCRC AND RDHDR, DETERMINE IF BAD SECTOR BY DOING 40 RDHDRS 
'IS^N IF PN CORRECT CYLINDER SEE IF DA IS A bId SECTOR 



BIT 
BEQ 
MOV 
JSR 
MOV 
PIS 
MOV 
MOV 
JSP 
DEC 
BEQ 
TST 
BMI 

MOV 
BIC 
CMP 

BEQ 




MP(R3),Rl 
SECMSK-Rl 



r>r,UMi>P/Rl 
R1/PRP0S(R4) 
10$ 



?HEftDER NOT FOUND SET? 

jno it must be hcrc 

;allow foorty read headers to 

;FIND CYLINDER 
JREAD HEADER 

;ISSUE READ HEADER 
?WATT 

?pgNE 40 OF THESE? 

nil', u'h'iWrr'' 

;yeS/ go do it again 
;get header 

'^ftSK^^pUT SECTOR BITS 
'fJ^C^yNDER HEAD CORRECT? 
?YES/ GO CHECK BAD SECTOR LIST 
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TRERR(R4) 
20.,TRACK^ERR2 

TSEPCODE 

IftACK 
ERR2 

SKRETRY 




mi '''''' 

02170 



64 004121 000052 



015140 022764 000110 000044 
015146 001417 





INC 




ERRHRD 




TRAP 




• WORD 




■ WORD 




.WORD 




JMP 


9$: 


ERRHRD 


TRAP 




.WORD 




.WORD 




.WORD 




BR 


lOS: 


MOV 


JSR 




TST 




BBQ 


110$: 


BR 


lis: 


INC 


MOV 


111$: 


BR 



^TRACKING DRIFT ERROR 



?FIX TRACKING ERROR 



30./EXHAUS,ERRl ?WE CAN'T FIND GOOD HEADER ON THIS TRACK 

TSERCODE 

30 

EXHAUS 
ERRl 

110$ 

E.DA^CHKSEC 
R5,CKBDSC 
HDRFND 

goIrrx 



JGO CHECK BAD SECTOR FILE 
;WAS IT THERE 
?N0|, LOG IT EXIT 
IyES IGNORE ERROR 



HNFERR(R4) .^LOG IT 

»MTHNF,RTYPE(R4)?SET UP FOR 
GOFIN ;EXIT 



'HNF" PRINT 



JIT HAS A HEADER CRC ERROR* FIG^ 
?QN A READ HEADER OR READ/^RITE 



FIGURE OUT IF IT WAS 



002172 



64 004126 000052 



13$: 
14$: 



CMP 

BEQ 

MOV 
JSR 
TST 
BEQ 
BR 

INC 
MOV 

BR 

MOV 
MOV 
MOV 
BIS 
MOV 
MOV 



#rNTENIPDHDR/FUNCfR4) ;READ HEADER? 
13S ?YES, GO FIND OUT MORE ABOUT IT 

;N0^ IT MUST BE R/W 

IsJc^PDSC^^ ;BAD SECTOR SEARCH 

HDRFND ;WAS OUR DA THERE? 

12$ ?N0, MUST BE LEGIT ERROR 

noERRX ;yes, ignore error 

HCRCER(R4) JLOG ERROR 

»MTHCRC/RTYPE(R4) 

GOFIN 



(aBBA{R4)|.Rl 
&40. /TEMPI 
»PDHDP,R2 ^ 
DRSEL(R4),R2 
DCS(R4),R3 
P2,CS(R3) 



USE IT'S BUFFER TO STORE 
A*) CONSECUTIVE HEADERS 
READ HEADER 



HDRS 
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MOV 
MOV 
MOV 
MOV 
DEC 
BNE 



R5/WTR0Y 
CS(R3)/(R1 
MP{R3^ 
MP<R' 
MP(R. 
TEMPI 
14$ 



R3),( 



?WAIT FOP READY 
?READ ALL REGISTERS 
} 

;D0NE 40 YET? 
fm, GO BACK 



?WE 
?0R 
?IF 

99$: 

15$: 



17$: 



HAVE 40 HEADERS NOW LETS SEE IF WE CAN VERIFY WHETHER 
NOT A BAP SECTOR CAUSED THE ERROR. CHECK FIRST TO SEE 
WE HAVE ANY BAD SECTORS ON THIS TRACK. 



002126 



19$: 



20$: 



MOV 
MOV 
BIT 
BEQ 
BIT 
BNE 
ADD 
DEC 
BNE 
BR 

CMP 

BNE 



MOV 
MOV 
ADD 
BIT 
BEQ 
BIT 
BEQ 
INC 
CMP 
BNE 



MOV 
JSR 
JMP 



CLR 

ADD 

MOV 

MOV 

BIC 

SUB 

BMI 

SUP 

BR 

SUB 



»BBA(R4)#R2 
#40. /PI 
|0PI/(R2) 

#hIpC/(R2) 

15S 
12$ 

R2,«BBA(R4) 
21S 



BBPA(R4)/Rl 
«1,R3 
#10/R1 
|np!/(Rl) 

#HCRC/(R1) 
19$ 

R3 

«15./P3 

18$ 

ftMBDMSC/WHV 

R5,DRDRV 

EXtTl 

<Ri),B2 



R3/R1 
20$ 

R3/R2 



00/R2 



;GET BUFFER START 

?FOURTY HEADERS 

?IS OPI SET IN CS 

JWO/ WELL CAN'T BE HCRC 

yINSURE HCRC W/OPI 

JFOUND GO SEE IF IT COMPARES 

J NEXT CS IMAGE 

;D0NE 40 



?IS HEADER FIRST ONE? 
?N0, READ PREVIOUS HEADER 
?YES/ WE'LL HAVE TO GO THRU 
?AND CHFCK OTHERS BEFORE WE 
JCAN SAFELY CALCULATE 
;"SUPPOSED" BAD SECTOR 



;DR0P DRIVE DUE TO 

;M0RE than 16 BAD SECTORS 



;clear this cs 

?get it's header address 

;get header 

jsave header 

;mask only sector 

?BACK UP TO sector WHICH IS BAD 

;if minus do magic 

;no then subtract is legal 

;rranch to check file 

?this sub produces wrong answer 



I 



ASSEMBLY ROUTINE 
CZRLEB.Pll 30 



mm 

15452 
15454 
15460 
J5462 
5464 
5466 



MftCYll 30A(1052) 
18j28 



30-NOV-78 18:42 PAGE 3-8 
CONTROLLER ERROR CHECK ROUTINE 



656 
657 



,.240 
16270^ 

601664 
000137 

015526 000137 



674 
675 



5532 
5536 



177700 
000050 

000050 

Ilk 

016350 
016452 



m 

005301 



III 



5600 

m 



000044 
000040 



OO6I37 016222 



21s: CLR 

SUB 
MOV 
INC 
MOV 
BIC 
CMP 
PLT 
SUB 

22s: MOV 
JSR 
TST 
BEQ 

GOERRX: JMP 

gofin: JMP 



(R2) 



Rl 



?FIX IT OP 
;G0 CHECK FILE 

?CLEAR THIS CS OUT 
?GET PREVIOUS HEADER 



Rl 
R1#R2 

I 

#40wR2 

R2/CHKSEC 

R5#CKBDSC 

HDRFND 

99$ 

ERREX 



FINERR 



.SBTTL COMMAND SERVICE ROUTINES 
?THERE WAS NO ERROR SO 

;NOW WE WILL FIND OUT WHICH FUNCTION HE DID TO CAUSE 
MNTERRUPT AND ACT ACCORDINGLY. 



CHKFNCt 


MOV 




ASR 




BIC 




DEC 




BNE 




JSR 




JMP 


2S: 


DEC 




BEQ 




DEC 




BEQ 




DEC 




BEQ 




DEC 




BNE 




JMP 


is: 


DEC 




BEQ 




ERRSF 




TRAP 




.WORD 




.WORD 



,R1 



FUNC(R4),R1 

iLcLRHCK 

AFWRCK 

Rl 

AGSTAT 

aIeek 

Rl 

ARDHDR 

fl 

AWRITE 
Rl 

AFREAD 
21C.tPRGER 

t|er6ode 

PRGER 



>GET FUNCTION OF DRIVE 
?ALIGN THE FUNCTION CODE 
JWIPE OUT INT. ENAB (SHIFTED) 
?WRITE CHECIf?? 
JNO/ BRANCH 



?get status? 
;branch if so 

ySEEK? 

;BRANCH if so 
;rdhdr? 
?branch if so 
?write? 

;N0^ branch 



;read? 

?BRANCH IF so 



ASSEMBLY ROUTINE 
CZRLEB.Pll 30 

mi mm 



1701 

m 
m 



015636 

mm 

015652 
015656 



5706 



5722 
5730 

5744 

5752 



016026 
016030 



'NOV-78 18:28 
016312 



MACYll 30A(ie52) 30-NOV-78 18! 

COMMAND SERVICE 



052764 
005264 



000340 
20 500 
000042 

nm 

023420 

000060 
023420 



M 

522764 

hum 

162764 
000557 

013701 
001442 

005264 



020 005264 000072 



10 4463 
000067 
003110 



A00056 
001750 



000002 



000002 
000004 



000056 



XEXIT: 
.SBTTL 

aseek: 



99$: 

.SBTTL 



HALT 
JMP 



BIS 
INC 
CMP 
BLT 
INC 
CLR 
JMP 



AFREAD: SETPRI 
MOV 



afwrck: 
1$: 



2S: 

.SBTTL 
AROHDRl 



EMT 
JSR 

MOV 
NEG 
ADD 
CMP 
BHI 
INC 
SUB 
CMP 
BHI 
INC 
SUB 
BP 



MOV 
BIC 
CMP 

BEQ 

PIT 

BEO 

INC 

ERRHPD 

TRAP 

.WORD 

.WORD 

.WORD 

BR 

INC 

ERRHRO 
TRAP 
.WORD 
.WORD 



42 PAGE 3-9 
ROUTINES 



SEEK 



fSKD0N,PRFLGS(R4)^ 5SET SEEK VERIFY NEEDED 

SKCNT1CR4) JINCREHENT COUNT 

SKCNTl(R4)r#1000. n0(3) REACHED 
99| — -t 



SKCNT(R4) 
SKCNT1(R4) 
ERREX 



#340 

R5,CKDATA 



,,,(3) 
;N0, EXIT 

;YES, BUMP THOUSANDS 



BWP(R4),R1 
R* 

R 



;CHEC»f DATA 



;BUMP UP XFER COUNT 
?"i5E_PgSITIVE 



Rl _ . _ ^ 

R1#PXFR1(R4) ;ADD THE BITS 
#10000. ,RXFR1(P4) ?10(8) REACHED YET 



^5fR2(R4) 

ifiooor " 



^8) AT 
RfiACHED YET 



jNO^pEXI^ 

.,RXFRl(R45^";STi?r 
0005.,RXFR2(R4) - - 

, I nu# Ci A L 1 

RXFR3j[R4) ;YES BUMP 65K 10{10) 

RXFR2(R4) ?MAKE 10(10) 5 

?EXIT 

READ HEADER 

GET HEADER 



#10006 
EXIT 



F.MP^Rl 
SECM§K,R1 
PRP0S(R4),R1 

|SKD0N,PRFLGS(R4) 

SKECNT(R4) 

50 

MSKER 
ERR2 
3$ 

TRERR(R4) 
"RAC'' 
;ODE 



;mask out sector bits 
;is header correct? 

;YES, CONTINUE 

„„Ky..ft!|S^MIS-SEEK OR TRACKING ERROR 
/BRANCH IP TRACKING 

JACCOUNT FOP SEEK ERROR 



;BRANCH AROUND TRACKING ERROR REPORT 

;account for tracking error 

5TRACKIHG ERROR 



5^ 
TRACK 



ASSEMBLy ROUTINES MACYll 
CZRLEB.Pll 30-NOV-78 18:28 



30A(1052) 30-NOV-78 18 



42 PAGE 3-10 
READ HEADER 



SEQ 0076 




851111 mm 

101405 



-06506 

042764 000001 



mm 



0Q2256 
OOOIOQ 
<i07560 

020000 
177400 



177700 
000034 



000035 
000012 



4463 

m 

054514 
016220 000434 



000056 1$: 



INC 
CMP 
BLOS 

ERRHRD 

TRAP 

• WORD 

.WORD 

.WORD 

BR 

MOV 
BIC 
BR 
BIC 



RSEEK(R4) ;SET RETRY IN PROGRESS 
RSEEK(R4),T.SLT ;RETRY EXHAUSTED????? 
4? ;N0, THEN RETRY 



.SBTTL 

AGSTAT: MOV 
BIC 
TST 
BEO 
BIC 

2S: BIT 

BEQ 

INC 

ERRHRD 

TRAP 

.WORD 

.WORD 

.WORD 

IS: MOV 
BIC 
CMP 
BEQ 
CMP 
BEQ 

INC 

ERRHRD 

TRAP 

.WORD 

.WORD 

.WORD 

BP 



/ERR2 



333 
SEXHAU 
ERR2 
1? 

R1,LSTHDR(R4) SSET UP RETRY 
|SKD0N/PRFLGS(R4) JALLOW SEEr 
EXIT JEXIT 

|fSKD0N^PRFLGS(R4) JSET VERIFICATION DONE 



«SKDON,PR 
RSEEK(R4) 
RlePRP0S(R4) 



EXIT 



?MAKE THIS HEADER PRESENT POSITION 
?EXIT 



GET STATUS 



E.MP^Pl 

2$ 

#WL,R1 
■■177400, R 



ERRCNT(R4) 

60.^MDSER,ERR4 

TSERCODE 

MDSER 
ERR4 

Rl,R2 

#177700, R2 

<f34,R2 

EXIT 

#35,R2 

EXIT 

ERRCNT{R4) 
70.,MDSER/ERR4 

TSERCODE 
70 

MDSER 
ERR4 

EXIT 



>GET STATUS 

;CLEAR OUT HEAD SELECT 
JREAD ONLY 



;ANY BITS WRONG 
?N0, CONTINUE 



?STATUS BITS WRONG 



JCOPY STATUS WORD 
?GET STATE BITS 

JCOVER CLSD, HEADS OUT/ BRUSHES HOME/ SEEfT TRACK COUNTIN 
JYES/ EXIT 

;COVER CLSD/ HEADS OUT/ BRUSHES HOME/ SEEK LINEAR MODE 
;YES/ EXIT 



ASSEMBLY ROUTINES MACYll 
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301(1052) 3D-N0V-78 18:42 PAGE 3-11 
WRITE 

-SBTTL WRITE 



000006 

nmi 

000010 



000104 



000116 



AWRITE: 


MOV 




NEG 




ADD 




CMP 




BHI 




INC 




SUB 




CMP 




BHI 




INC 


IS: 


SUB 


TST 




BEQ 




JSP 


exit: 


TST 




BEO 




CMP 




BEQ 




INC 




FRRSOFT 




TRAP 




.WORD 




.WORD 




.WORD 


EXITl: 


CLP 


ERPEX: 


BIC 




MOV 




MOV 




MOV 




MOV 




MOV 




MOV 




MOV 




MOV 




MOV 




MOV 




MOV 




MOV 




MOV 




MOV 




MOV 




MOV 




MOV 




ENDSRV 


L10023: 




RTI 


FINFRR: 


JSR 




BR 




MOV 



BMP(R4)/R1 
Rl 

RkwxrRi(R4), 



;C5T WORD COUNT 

Ri.«KPPi(R4) i;5SS5g=i?iP 

n0000./WXFRl(R4) ?10(5) YET? 
IS • NO FXT T 

WXFR2j(R4) jYE§ BUMP 10(10) 

nO0O0./WXFR2(R4) JIO(IO) YET? 
IS 'NOEXiT 
*fn52P'^> JiNC 65K (1Q){10) 

|10000./WXFP2(R45„ JMAKE lOHO) 
T.WCK yPERFORM WRITE CHECK 

R5/SETWCK 

RETPY(R4) 
ERREX ; 
RTYPE(R4)/<fWTDRV 
EXTTl 

SFtCNT(R4) ;YES/ LOG SOFT ERROR 

||.^MSFER/ERR3 ;REPORT SOFT ERROR 

MSFER 
ERR3 



;CLEAR RETRY 



«INTEN/aDCS(R4) 
(SP)+/RQ 

(sp)+;ri 

(SP)+/R2 

(SP)4./R3 

S§n + 'INCALL 

(SPU/OPCALL 

(SPU/WHY 

(SP)+/TEMP1 

(SPU^HDRFNO 

(SPU/CHKSEC 

(SP)+/E.MP2 

(SP)+/E.MP1 

(SPU/E.MP 

(SPW/E.DA 

(SP)+/E.BA 

(SP)4-/E.CS 

CSP)+/R4 



R5/RCNT 
IS 

E.CS/S0FTCS(R4) 



CSSISS 79^fP II SI ?^VE EXCEEDED 
?RETRY LIMIT/ IF SO IS AND REPORT HARD 



ASSEMBLY ROUTINES 
CZRLEB,P11 30-NOV-78 

im nm nmi 



6476 

li 

6504 
6506 



03555 
04304 
045 37 



MACYll 

mm 



011422 



30A(1052) 30-NOV-78 18! 



016512 000714 



ot«t 

Wi nmt mm mm 



0165 

8111 

0165 
0165 



hum 



6534 
6540 
6542 



:6554 
6556 

ih 

6570 
6572 

II I 

6606 
6610 
6616 



016620 
016624 

016636 



mm 
ill 



m 



mm 

000412 

00 4537 
004537 

012737 



JMP 
INC 

ERPHPD 

TRAP 

.WORD 

.»ORD 

.WORD 

JSR 

BR 



42 PAGE 3-12 
WRITE 

ERREX 

F,RRCNT(R4) 

90.#MHDER#ERR1 

||EPCODE 

MHDER 
ERRl 

R5/CLRWCK 
EXITl 



;N0T EXCEEDED EXIT 

Indicate error 
;non-recoverable error 



.SBTTL DRIVE ERROR SERVICE 

?WE HAVE A DRIVE ERROR, LET'S GET THE STATUS 

CKDERRS INC DERCNT(R4) 

JSR R5,GETDST 
;REPOPT DRIVE ERROR 

ERRHRD 224.£DRVRR,ERR9 

TRAP JSERCODE 

.WORD 2^4 

.WORD DRVER 

.WORD ERR9 



JACCOUNT FOR ERROR 
;GET DRIVE STATUS 

?ORIVE ERROR 



001000 
010000 
144000 
002000 
021136 
021136 

mm 

002762 002126 
021136 

002735 002126 



?ACT 



20$: 



9S: 



ACCORDINGLY TO DRIVE 
»VC,R1 



:rror 



BIT 
BNE 
BIT 
BNE 
BIT 
BNE 
BIT 
BNE 
JSR 
BR 
JSR 
JSR 
BIT 
BEQ 
HOV 
BR 

JSR 
JSR 
BIT 
BEQ 
MOV 



#SKT0,R1 

|wSeIHCE!SPE,R1 

fwiE/Rl 

rI!isdrst 

lOl 

R5/ISDRST 
R5,GBTpST 

m 

R5,ISDRST 
RS-GETOST 

#MVCER,WHy 



EST,WHV 



;VOLUME CHECK? 
;YES, GO ISSUE RESET 
?SEEK TIME OUT? 
;YES* ISSUE RESET 

?MRITE DATA, CURRENT HEAD, SPINDLE? 

;G0 WAIT FOP HEADS TO UNLOAD 

;WRITE GATE ERROR 

JYES, ISSUE RESET 

;ISSUE RESET 

;G0 CHECK DRIVE READY 

?ISSUE RESET 

;RESEI WORK? 

JWGB CLEAR 

?YES GO CHECK DRIVE READY 
fREPORT WGE DIDN'T CLR 
;DR0P DRIVE 

tissue reset 
;reset work 
jvol chk clear 

;YES, CHECK DRIVE READY 



?DR0P THE DRIVE 



ASSEMBLY ROUTINES 
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MACYll 
18:28 

mm 

000001 



003015 
006507 
000002 



30A(1052) 30-NOV-7R 1 
DRIVg ERROR SE 




000000 
002126 



91$: 
10$: 



12$: 
13$: 



000000 



002126 141$: 
000000 14$: 



111! 



003352 002126 



JSR 
JMP 
BIT 

BNE 

MOV 
BR 

PRINTP 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

JSR 

JMP 

MOV 

JSR 

WAITUS 

MOV 

EMT 

PIT 

BNE 
DEC 
BNE 



BIT 
BNE 

PRINTB 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

JSR 

JMP 

MOV 
JSR 
BIT 

BEQ 

EMT 
DEC 
BNE 
MOV 

BR 



42 PAGE 4 
RVICE 

R5,DRDRV 
EXITl 

liDPDY,CS(R3) 
101$ 



#DN1 
91$ 



RDY^WHY 



#FMT14,«MRDBR 

ttMRDER,-(SP) 

iFMT14,-(SP) 

C$PNTP 

#6,SP 

R5,GHDR 

Si If 

R5,ISDRST 



mm 

CSWTU 



»DRDY,CS(R3) 
14$ 

R2 
13$ 

#MDERS,WHY 
91$ 

JDERR,CS(R3) 

iFMll4,#MRDER 
MRDER/-(SP) 

SP^RO 

c$Ntb 

#6,SP 

P5,GHDR 

EXIT 

rpCgetdst 

#PIT4,R1 

J7! 

ftl.,RO 

C$WTM 
R2 

IuIload^why 

^1$ 



;drive ready posted? 
;yes, print recovered 



;no, drop drive 
?print drive recovered 



JSEEK TIME OUT 
?ISSUE drive RESET 
JFOUR TIMES BEFORE 
JDROPPING DRIVE 



;drive ready yet? 

?yes, check if error cleared 

jno, have we done it four times 

;yet 

;VES, DROP DRIVE 



?DRIVE ERROR SET STILL 
;YES, DROP DRIVE 



?MAIT FOR HEADS TO UNLOAD 
;GET STATUS 
JUNLOAD STATE 

;YES, CONTINUE W/ RECOVERY 
?WAIT A WHILE 



?WAIT LONG ENOUGH 
?N0, GO BACK 
;DR0P DRIVE 



4 



ASSEMBLY ROUTINES MACVll 30^(1052) 30-NOV-78 ^lflt42 PAGE 4-1 

CZRLEB.Pll 3S-N0V-78 18:28 DRIVE ERROR SERVICE 



'>0 45 37 021136 

012700 000001 
' Q4026 

040000 000000 
012702 000075 
000012 

000001 000000 




7230 
7232 




mm 

010237 
0004Q5 

imi 

005737 
054537 



0000 



JSR 
WAITMS 

MOV 

EMT 

BIT 

BNE 

MOV 

WAJTWS 

MOV 

EMT 

BIT 

BNE 

DEC 

BNE 

MOV 

BR 



MOV 
BIS 
BIC 
JSR 
MOV 



R5,ISnRST 

lll£.R0 

CSWTM 

ttDERR,CS(R3) 
141S 

m.,R2 
ii8:,R0 

CSWTM 

»DRDY,CS(R3) 

W 
18$ 

»NOLOAD,WHY 
91$ 



? ISSUE RESET 



;driv 

?N0, 

yvBS, 



wait fiO SECONDS 



JFOR DRIVE READY TO 



JCOME BACK 



?N0 READY DROP DRIVE 



«CRDY!RDHDR|,CS(R 
R5/WTRDY 



BIC 
MOV 
MOV 
RTS 



MP(R3),R 

SECMSK, " 
RlfPRP 
*MTDRV, 
R5 



DS(R4) 
,RTYPE(R4) 



;SETUP DRIVE ERROR 



JROUTINE TO WRITE A BUFFER INTO MEMORY. OSES WORD COUNT AND BUS 
;ADDRESS from drive BUFFER (R4). WILL WRITE RANDOM FROM ONE OF 
J8 PATTFRNS. USED BY WRITE FUNCTION AND WRPACK ROUTINE. 



000042 

mm 

000003 

000003 
000003 



o8oio? 

007562 
007564 
021214 



002212 4S: 



MOV 

MOV 

MOV 

MOV 

MOV 

NFG 

MOV 

CMP 

BGE 

CMP 

BGE 

ADD 

SUB 

MOV 

DEC 

MOV 

BR 

MOV 

MOV 

TST 

BNE 

MOV 

BP 

JSR 



R3,-(SP) 

R2,-(SP) 

R1/-(SP) 

RO>-(SP> 

BMP(P4),R2 

R2 

PBBA(R4),R1 
R2/«i2B. 

4<; 

#3/R2 

#3/PMP(R4) 
R2/(R1)+ 

P2,TEMP6 

»l27./TEMP6 
»12fl.,(Rl)4. 
T.RAN 

55$ 

T.PAT/R3 

56$ 

R5,RAND 



JSAVE REGISTERS 



?R2 HAS TOTAL WORDS TO SET UP FOR 
;POSITIVE NUMBER 
yWHERE BUFFER IS 
;MQfiE THAN 128 WORDS 
?YES^ BRANCH 

;nREATER THAN THREE WORDS 
?YES, BRANCH 

;add 3 

;WC UP BY 3 
?STORE WC 
;ACCOUNT FOR WC 
?LOAD DOWN COUNTER 

JLOAD DOWN COUNTER 

?random select of patterns 
;yea 

;no get pattern operator 
;wANTS to use 

?GET RANDOM « FOR PATTERN 



ASSEMBLY ROUTINES 
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MOV 

BIC 

ASL 

ADO 

MOV 

MOV 

MOV 

DEC 

MOV 

MOV 

MOV 

DEC 

BEQ 

DEC 

BNE 

BR 

SUB 

BGT 

MOV 

MOV 

MOV 

MOV 

RTS 



.SBTTL RETRY LIMIT ROUTINE 



L0NUM,R3 
||77770,R3 

»PATLST,R3 

R3,(R1)+ 
TEMP6 
TEMP7£R3 
»16.,TEMP8 
(R3)4-,(R1)* 
TEMP6 
8S 




?GET RANDOM PATTERN 
?0,7 

;WORD OFFSET 
;GET PATTERN LIST 

;get list address 
;stor for recall 

?LOAD IT 

;account for it 
;pattern start 

?16 entries 

;store pattern 
?down count 
;noNE? 

;done with pattern 

;N0, go BACIf 

;restart pattern 
;another sector to use 

?YES go BACK 

?restore registers 



;RETRY BUMP, 
? 



TViO RETURNS - CALL +2 - RETRY EXCEEDED 
CALL +4 - CONTINUE RETRY 



007504 RCNT: 



CMP 
BEO 
INC 
TST 
RTS 



R|TPY(R4), LIMIT 

RETRY(R4) 
(R5) + 

P5 



?LIMIT REACHED? 

;YKS take FIRST RETURN 

;account for retry 
jnext return 

;RETURN 



.SBTTL LIST OF FUNCTION ROUTINES 

;WE GO THRU THIS LIST WHEN CALLED IN "GETFNC" 

;LIST IS IN NUMERICAL ORDER 1-6 (CONTROLLER RESET - READ) 



;WRITE DATA 
;GET STATUS 
?SEEK FUNCTION 
?SEEK FUNCTION 
;READ DATA 
;RRAD DATA 



LIST: .WORD C 
WRTFNC 
GSTFNC 
SKFNC 
SKFNC 
RDDFNC 
RDDFNC 

.SBTTL BAD SECTOR FILE ROUTINE 

?ROUTINF TO RECOVER BAD SECTOR FILE AND SAVE IT FOR 
;COMPARTSON UPON ERROR ON READS/WRITES. WE WILL ONLY 
;RESERyE SPACE FOP 16 BAD SECTORS PeR DRIVE. 
;WE WILL ISSUE A DRIVE RESET FIRST, READ HEADER. POSTTrON 
?T0 LAST TRACK (CYLINDER 255/sURnCE 1) AND ReId IN 
;THE first SECTOR FOR FACTOR^ BAd/anD THE 20TH FOR 



ASSEMBLY ROUTINES 
C2RLE8.P1I 30-N0V-73 18:28 

mi 



HJiCYll 30M1052) 30-NOV-78 18:42 PftGE 4-3 




RAD SECTOR FILE ROUTINE 

sFIELD RAO SECTORS. R4 WILL CONTMN THE BUFFER POINTER 
;T0 THE DRIVE ¥E WANT TO READ 



000040 
000044 



0000 40 
000042 
000044 



05737 
01410 



000104 



021136 
000004 
002204 



;CALL JSP 



RDBDSC! MOV 
MOV 
MOV 
MOV 

21S! JSR 
MOV 
JSR 
JSR 

MOV 
BIC 
MOV 
SUB 
MOV 
BIS 
MOV 
JSR 
JSR 
MOV 
JSR 
JSR 
MOV 
EIC 
CMP 
PNE 

MOV 
MOV 
MOV 

CLR 
MOV 
MOV 
MOV 

lis: MOV 
DEC 
BNE 

MOV 
MOV 

45: JSR 
JSR 

TST 
BPL 

JSR 
ADD 
TST 

BEQ 



R5/RDRDSC 



SSAVE REGISTERS 



R0/-(SP) 
RI/-SSP) 
R5/-CSP) 
R3,-CSP) 

R5 I sDR §T 

#r5hDR/FUNC (R4)?READ header TO FIND POSITION 

R5,LDFUNC ?0N DISK 

R5,WTRDY 



|^SilllGllMK,BDA(R4) 



MP(R3),R0 

cvlmsk,r6 

#77600/Rl 

R9/R1 

»SEEK-FUNC(R4) 
R5/LDPUNC 
R5,WTRDV 
<^RDHDR,FUNC(R4) 
R5/LDF0NC 
R5,WTRDY 
MPjjR3>/R0 

f775oO,RO 
21$ 

#77700/BDA(R4) 
#-256./BMPtR4) 
ftPEADrFUNC(R4) 

TEMP3 

#HWSEC/WHY 

BSECPT(R4)^R2 

»16./P0 

«-l,(R2)* 

RO 

11$ 

BSECPTCR4),R2 
«16.,R0 
R5,LDFUNC 
R5,WTRDY 

PDCS(R4) 
3$ 

R5,ISDRST 
#4*BDA(R4) 

TEMP3 
55 



;GET HEADER AND CALCULATE 

JDIFFERENCE TO GET TO 

;8AD SECTER FILE/ AND GO 
?THERE 



jSETUP AND READ IN THE 
;BAD SECTOR FILE ON SECTOR 
?0 

;MfcNUFACTURING/FIELD FILE SWITCH 
?START WITH MANUFACTURING BAD 
;INITIALIZE LIST TO ALL I'S 
;SIXTEEN ENTRIES 



;GET LIST TO STORE 
;STXTEEN ENTRIES 



?HAS THE READ GOOD? 
;YES 



JNQ, NEXT SECTOR 
?MANUFACTURING OR FIELD BAD 
JMANUFACTURING 
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CZRLEB.Pll 30-N0V-78 18:23 BAD SECTOR FILE ROUTINE 



001352 

mm 

001345 
000463 




04537 
00770 



03544 
77750 



077724 
000001 



020220 
022500 



077724 5S: 



000102 
002200 
002202 

mm 

002200 

m 

177377 
002202 



mm 

002202 



003473 002126 



3$: 
IS: 



MOV 

CMP 

BNE 

BR 

CMP 

BNE 

BP 

MOV 

MOV 

MOV 

CMP 

MOV 

BMI 

MOV 

SWAB 

ROR 

MOV 

MOV 

BIC 

BIS 

BIC 

ASR 

ASR 

BIS 

DEC 

BNE 

MOV 

BP 

TST 
BNE 
MOV 
MOV 
BP 

JSP 
JSR 
MOV 
MOV 
MOV 
MOV 
RTS 

JSR 
BP 



ttSWSEC/ WHY 
#77750/BDA(R4) 



BPA(R4), 1(77724 
4$ 



+ /R3 
♦ /R2 



|SP)+#R1 
(SP)+/RO 

R5 

R5/0RDRV 
9$ 



JFIELD BAD 

;AT END OF FIELD BAD? 
;Nn/ GO BACK FOR NEXT 

;AT END OF MANUFACTURING BAD 
?AT END OF BAD FACTORY SECTION 
;YES, REPORT ERROR 



iaBBA(R4)£Rl 
(R1)*/SERNM1CR4) 
(Rl)-«-/SERNM2(R4) 
(Pt )*/(Pl )♦ 
f P1)+/TEMP1 

(R1)+,TEMP2 
TEMPI 
TEMPI 

TEMP1^(R2) 
TEMP2. TEMPI 

#177371, TEMP2 
TEMP2 
TEMP2 

?EMP2,(P2)+ 

RO 

ImBDMSC/WHY 



«?7724,BDA(R4) 

#1/TE MP3 

4$ 

R5/DRDRV 
P5,HDH0MF 



(START OF LIST 
JGET LOW PART 



OP SERIAL # 



SGFT HIGH PART OF SERIAL 
JlP PAST JUN" 
GET CYLINDER 



;TF MiKUS END OF BAD SECTORS 
?GET TRACK AND CYLINDER 
;PUT CYLINDER IN HIGH BYTE 
?ALTGN IT 

JSTORE OFF CYLINDER PART 
;GET SECTOR 
;LEAVE ONLY SECTOR 
;SET IN SECTOR BITS 



;SET IN HEAD 

;M0RE THAN 16 BAD SECTORS 

?SWITCH„TO FIELD BAD OR QUIT 
?OUTT# 7$ 

;SWTTCH TO FIELD BAD 

;SET TO QUIT NEXT TIME THRU 



JDROP THE DRIVE 
?BRINGS HEADS HOME 



.SBTTL ROUTINE TO PROP DRIVE 
;ROUTINE TO DROP A DRIVE FROM RUNNING 



ASSEMBLY ROUTIN! 
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?-NOV-78 18:29 ROUTINE TO DROP OPIVE 

5R4 HAS BUFFFR POINTER OF DRIVE TO DROP 
$WE CLEAR PIT IN "DRWT", NOT "DRPRS" 
} 



mil 



002324 
C02326 



000124 
002324 




ODRDRV: INC 
DRDRV! MOV 
MOV 
MOV 
INC 
CLR 
MOV 
MOV 

is: CMP 
BEQ 



8888?? 



000012 
006717 



ASL 
ADD 

BR 

TST 

BNE 

DODU 

MOV 

EMT 

CLR 

CLR 

MOVB 

MOVB 

BNE 

INCB 

BICP 

PRINTF 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

PRINTF 

MOV 

MOV 

CLR 

BISP 

MOV 

MOV 

MOV 

EMT 

ADD 

PPINTF 
MOV 




?SAVE REGISTERS 



JSTART OF DRIVE BUFFERS 
?MASK 

;IS THIS THE DRIVE? 
;YES GO DROP IT 

JNO SHIFT MASK 
?NEXT BUFFER 
;G0 RACK 



lfPRP0S*2/R2 
1$ 

OPCALL 

R^ 

cifcoSu 

INCALL 
OPCALL 

HOUR,DPH0UR(R4) ?TIME AT WHICH IT WAS DROPPED 
MINUTE, DPMIN(R4) jHOUR/MINUTE 

nPMIN(R4) 



?if minOte'I/*^ 

IMAKB 1. 



iPMIN(R4) JMAKB 1. 

;DRNM,-(SP) 



DCS(R4)/-(SP) 
ttMRLCS,-(SP) 
SECOND, -(SP) 
MINnTE,-(SP) 
HOURfc-CSPy 
ftTIME,-(SP) 
iFMT7,-(SP) 
«10,-(SP) 
SPfcRC 
CSPNTF 

#FMT7A/<B,DRSEL*1(R4)>,«DR0P,WHY 
WHY,-(SP) 
#DROP/-(SP) 
-(SP) 

DRSEL+1(P4)#( 
#FMT7A,-(SP) 
•■' 'SP) 



<(SP) 



sp^r5 

C5PNTF 



SP 

ShtSP 

IfFMTSl 
#FMTS1,-(SP) 
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000001 



000004 
011670 



30-NOV-78 18:42 PAGE 4-6 
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MOV 
MOV 
EMT 
ADD 

JSP 

MOV 
MOV 
MOV 



«1,-(SP) 
SP^PO 
CSPNTF 
#4,SP 

PC#PEPORT 

<SP)*,R3 
(SP)+,R2 

(sp)+;ri 



0110 






002200 


M 


002202 


2174 






002204 




032176 



002200 
002206 



024430 
OOOOlO 
002206 



023620 
0022O6 



.SBTTL ROUTINE TO CHFCK DATA 
yRQUTINE TO CHECK DATA ON READ 

CKDATA! TST C^RD 

BNE 97$ 

RTS R5 

97S: SETPRI #340 

MOV #340, PO 

EMT CSSPRI 

MOV !aBBA(R4)tR2 

MOV BMP(R4), TEMPI 

NEG TEMPI 

MOV DELMT#TEMP2 

CLR DECNT 

MOV CMRD,TEMP3 

96$: MOV »126.#TEMP0 

MOV (P2)<-,P1 

DEC TEMPI 

BFQ CFND 

DEC Rl 

MOV (P2)+/TEMP4 

JMAKE SURE PATTERN ADDRESS IS 



;RESTORE REGISTERS 



;D0 we WANT TO CHECK ANY? 
?VBS CONTINUE 
?N0, EXIT 



?buffer start 

;words read in 

;make positive 

;$ errors to be printed 

?INIT error count 

;ff words to BE comprrsd 



;126 words 
;N0N-ZI 



zero words 



MOV 
MOV 
CMP 
PEQ 
DEC 
BNE 

CMP 

errhpd 
trap 

• WORD 

.WORD 

.WORD 

JSP 

RTS 

DEC 
MOV 



;PATTRRN ADDRESS 
LEGAL 

#PATLST/RO ?GET LIST OF PATTERNS 

1^8., R3 ;ONLY EIGHT 

(P0)+,TEMP4 JFOUND IT YET 

;YES, CqNTINflE 
;N0, EXHAUST LIST YET 



99$ 
P3 
9B$ 

t<;ercode 

IPO 
NOREV 
ERRI3 
R5,STDMP 

Rl 

TEMP4/R3 



;N0, go back 



,ERP13 



?ACCOUNT FOR PATTERN ADDRESS 
;GET ADDRESS 



ASSEMBLY ROUTINES MACYll 3f^A(1052) 
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_ PAGE 4-7 
DATA 




00221D 



002202 
5337 002200 



05337 
01656 



1$: 



2S; 



m s 



DEC 
MOV 
TST 
BEO 
TST 
BEO 
TST 
BEQ 

tI? 

BNE 
MOV 
MOV 
MOV 
DEC 
BP 
"LR 
MP 
BEO 
INC 
IMC 
TST 
BEO 

ERRHRD 

TRAP 

.WORD 

.WORD 

.WORD 

DEC 

DEC 
BEQ 
TST 
DEC 
BEQ 



TEMPI 

(fl6., TEMPS 

TEMPI 

CEND 

TEMP3 

CEND 

Rl 

it 

TEMP5 
2S 

TEMP4/R3 

fl6j/TEMP5 

(R3)+#GDDAT 

TEMPS 

4S 

GEiAT,(R2) 
DECNT 

DATCER(R4) 

TB"~^ 



TBMPL 
55 

180.fcMDCER,EPR8 

MDCER 
ERR8 
TEMP2 

TEMPI 
CEND 
(R2) + 
TEMPO 



^ACCOUNT ONCE AGAIN 
;16 ENTRIES TO PATTERN 
;ANY WORDS READIN LEFT? 
?N0. GO TO END 

;HAVE we EXHAUSTED COMPARE LIMIT? 
JYES GO TO END 

;WE CHECKING PATTERN OR ZERO FILL? 

?ZERO FILL SKIP 

?PATTERN 

JWITHIN PATTERN 

;YES SKIP 

;N0, START OVER 

?DOWN COUNT 

JZERO FILL 
JCORRECT DATA 
?VES YES NEXT 
JDATA ERROR 

?D0 WE WANT TO PRINT IT 

;no,skip 



;ACC0UNT FOR PRINT 
yWORDS READ IN 
;NEXT WORD 
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Bil uiii^ uim ii^ iv^^ '"^^"^^ ^° ^"^^'^ 

ill mm mill iii ?f 'WnV " ^^^^ 
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NEC BMP(R4) ;MAKE POSITIVE WORD COUNT 

ERRHRD 190./MDCER,ERR6 ?0ATA ERROR SUMMARY 

TRAP TSERCOOE 

.WORD 190 

.WORD MDCER 

.WORD ERR6 

l$! RTS R5 

.SBTTL ROUTINE TO WAIT FOR CONTROLLER READY 

;ROUTINE TO WAIT FOR CONTROLLER READY UNDER FLAG 
?MODE. USED IN INITIALIZE PORTION OF PROGRAM I.E. 
JGETTING RAO SECTOR FILE, WRITING PACK INITIALLY 



21116 012600 MOV (S 

21120 000205 RTS R5 




WTRDY: 


MOV 




MOV 




MOV 


1$: 






EMT 




PIT 




BNE 




DEC 




BNE 




ERRDF 




TRAP 




.WORD 




.WORD 




.WORD 


2S: 


MOV 




MOV 




RTS 



RO/-(SP) JSAVE REGISTERS 



||OO0.,f?l JWAIT A WHILE 

#CRDY,(aDCS(R4) ?READY SET? 

2S JYES, EXIT 

Rl ?TIMED OUT? 

IS ?N0 GO RACK 

1062.#NOCRDV,ERR12 
T^RCODE 
l0O2 
NOCPDY 
ERR12 

021114 012601 2S: MOV (SP)+,R1 JRESTORE REGISTERS 
"""'OO MOV (SP) + ,RO 



.SBTTL GET STATUS/DRIVE RESET ROUTINE 

;ROUTINE TO ISSUE DRIVE RESET 

;ALSO GET STATUS, Rl HftS STATUS IF GS 

yUSES R3, DOES NOT SAVE IT 

016403 000104 GETDST: MOV DCS(R4),R3 

Q12763 000003 000004 MOV #GSBIT,DA(R3) 

66Q4Q5 BP CSTUFF 

6i64i)3 000104 ISDRST: MOV DCS(R4),R3 

012763 000013 000004 MOV fiDRST,DA(R3 ) 

012763 000204 OOOQOO CSTUFF: MOV #CRDY1GSTAT,CS(R3 ) 

'^56463 000106 OQDOOO BIS DRSEL(R4),CS(R3) 

042763 000200 000000 BIC «CRDY£CS(R3) 

004537 021052 JSR R5, WTRDY 

■2J763 0C0013 000004 CMP #DRST,DA(R3) 

06 M0§ mI(R3),R1 



mm 
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021212 000205 



010146 



mm 



002136 



002136 




021352 104317 



4205 

mill 



IS: 



.SBTTL ROUTINE TO GENERATE A RANDOM NUMBER 



MOV 
MOV 
MOV 

MOV 
MOV 
MOV 
ASL 
ROL 
INC 
BNE 
ADD 
ADC 
ADD 
ADD 
ADC 
ADD 
MOV 
MOV 
MOV 
MOV 
MOV 
RTS 



R1,-(SP) 

LnNUM,R3 
HINUM.Rl 
#-7,R2 

R3 
Rl 

n 

L0NUM,R3 
Rl 

HINUM^Rl 
#i057,R3 
Rl 

#47401, Rl 

P3,HINUM 

R1,L0NUM 

(SP)*-,R3 

(SP)+,R2 

(SPU/Rl 

R5 



.SBTTL ROUTINE TO WRITE PACKS INITIALLY 

;ROUTINE TC WRITE PACK WITH PATTERN, ALL TRACKS WILL BE 
yWRITTEN (EXCEPT BAD SECTOR TRACK) 

;FORMAT IS « OF WORDS (WORD 1), PATTERN ADDRESS (WORD 2) 
?PATTERN (WORDS 3 - 128) 

JWE WILL ATTEMPT TO WRITE MULTIPLE SECTORS AT A TIME 
;(MINIMUM 10 SECTORS) IF AN ERROR OCCURS WE WILL THEN 
J'tfRITE INDIVIDUAL SECTORS FOR THAT TRACK. WF 00 WRITES, 
;READS ftND INCOPE COMPARISONS TO VERIFY. 



?CALL JSR P5,WRPACK 



wrpack: 



MOV 
MOV 
MOV 
MOV 
MOV 
TST 
BNE 

PRINTF 

MOV 

MOV 

MOV 

MOV 

EMT 



Bpl(ft4),-(SP) 
WRIPG(R4) 

|lMTl«/«MSWRPff 
iMSWRPK,-(SP) 

SP,P0 
C5PNTF 



?SAVE REGISTERS 



;SEE IF WRITE IN PROGRESS WAS SET 
JJUMP IF SET - DON'T PRINT MESSAGE 



ASSEMBLY ROUTINES 
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062706 000006 




000104 
021136 



ADD 

PRINTF 
CLR 
BISB 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
EMT 
ADD 
JSR 



?NOW ACTUALLY 

?TRACK 

? 



|f<»T17,»MRLCS,DCS(R4),#DRNM^<B/DRSEL*1(P4)> 

d5seL*1(R4),(SP) 
«DRNMe-(SP) 
DCS(R4),-(SP) 
tfMRLCS,-(SP) 

SP,RO 
CJPNTF 
#14#SP 

R5,HDH0ME ?HRftDS HOME 

WRITE DATA OUT ON PACK, WILL NOT WRITE LAST 



JTEMP1=HEAD 



CLP 


TEMPI 


CLR 




CMP 


p7600#Rl 
STWRT 


BNE 


TST 


TEMPI 


BEQ 


STWRT 


JSR 


R5-HDH0ME 
fSP)+,BBft(R4) 


MOV 


MOV 


(SPU,R3 


MOV 


(SP)4-,R2 


MOV 


(SPUrRl 


MOV 


(SP)+,RO 


RTS 


R5 



?R1=CYL 
;CYL=25_ 

;N0 go WRITE TRACK 



?yes^ check if head = 1? 
jhead = go write 
jheads home 



?end exit 



000110 
000042 



000110 
000044 



201S! 



;THIS portion 

;error occurs 



CLR 
MOV 
MOV 
JSR 
MOV 
BIS 
TST 
BEO 
CMP 
BEQ 
JMP 
BIS 
MOV 
MOV 
JSR 
JSR 
TST 
BPL 
JSR 
BR 



WILL WRITE THE PACK USING MULTIPLE SECTORS IF A 
WE WILL GO TO 2S AND INDIVIDUAL SECTORS. 

R2 



jinitial sector 
«pufi,bba(R4) ;buffer start 

ii-1280.£BMP(R4) }10 SECTORS 
R5,WRBUF ;WRITE BUFFER INTO MEMORY 

-t'^r..,r.A^ .gg.,. UP SECTOR 



Rl,PDA(R4) 
TEMPI, BDA(R4) 
WRIPG(R4) ;WAS WRITE IN PROGRESS SET? 

762S JJUMP IF NOT SET 

PRP0S(R4),BDA(R4) ;AT THE SAME ADDRESS WHEN DIED? 

762$ ;JUMP IF ON CYLINDER 

952S JELSE, LOOK AT THE NEXT CYL ADDRESS 

R2,BDA(R4) 

#PUF1,BBACR4) ?SET UP TO WRITE 
#WRTTE,FUNC(R4) JWRITE 
P5,LDFUNC 

RS^WTRDV ?WAIT FOR READY 

iaDCS(R4) ?ERROR 

203$ 

R5,ISDRST 
2$ 
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012764 
004537 




000002 000044 
014112 



203S: 



MOV 
JSR 
JSR 
TST 
BMI 



ADD 
CMP 
BNE 
JMP 



#WRCHK,FUNC(R4) 

R5,LDFUNC 

R5eWTRDY 

aDCS(R4) 

2055 



* E R ROR 

JYBS GO DO SECTORS INDIVIDUILLY 



;next group 
;done'> 

;N0, go BACK 
;YES NEXT track 



;IF AN ERROR OCCURS THEN WE COME HERE AND DO THE TRACK SECTOR 
JBY SECTOR. 



177600 000042 
000040 

002200 000040 
000040 

000110 



3S: 



002174 

002174 000002 



85$ 
BOS 



022042 
022046 



005774 
IOC'^23 



CLR 

MOV 
MOV 
BIS 
BIS 

MOV 
JSR 
CLR 
CLR 
MOV 
JSR 
JSP 

TST 

BPL 

JSR 
MOV 
JSR 
TST 

BNE 

INC 
CMP 

BNF 



JSR 
BP 

CLP 
MOV 
JSR 
JSR 

TST 
BPL 



R2 

»PUF1|.BPA(R4) 

R5,WRBUF 

RWCNT 

DECNT 

|WRITE,FUNC(R4) 

R5/LDFUNC 

R5/WTRDY 

faDCS(R4) 
85$ 

P5,1SDRST 

BDA(R4),CHKSEC 

R5,CKBDSC 

HDRFND 

95$ 

DECNT 

DFCNT,«2. 

96$ 



R^,INPAD 
95% 



RECNT 

<tWRCHK,FllNC(R4) 

R5,LDFUNC 

R5,WTRDY 

(aOCS(R4) 
81$ 



;R2 = SECTOR 



jloid word count 
;s!=;tup disk address 



?WRITE A BUFFER 
;CLEAR RETRYS OUT 



?WRTTE FUNCTION 

?WATT FOR WRITE TO FINISH 



JERROR ON WRITE' 
JNO, GO READ 



?YES, CHECK IF SECTOR IS IN 
;BA0 sector FILE 

;iF set, it was 

JYES GO TO NEXT SECTOR 



;no, _ 
;IT MA 



GIVE IT ONE MORE TRY 
"Y HAVE BEEN NOISE. 



?CLEAR RETRY COUNT 
? 



;ERR0R ON READ 
JNO, GO COMPARE 



ASSEMBLY ROUTINES 
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SEQ 0092 



95$: 




MOV 
JSR 
TST 

BNE 

INC 
CMP 

BNE 

JSR 

BR 



ADD 
CMP 
BGT 
JMP 

INC 
SUB 
CMP 
BEQ 
JMP 



TST 

BEQ 

CLP 
ADD 
MOV 
MOV 
JSR 
JSR 

JMP 

MOV 
MOV 

BR 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 

ERRHRD 

TRAP 

.WORD 

.WORD 

.WORD 



RS^ISDRST 

RDA(R4)tCHKSEC 
R5#CKBDSC 
HDPFND 
95 S 

RECNT 

RECNT,»2. 

80S 

R||TNBAD 



Itl0./R2 
95li 

as 



tt40.,P2 
R2,ffl0. 

952$ 



TEMPI 
5S 



TEMPI 
#200, PI 



»205,BDA(R4) 
ftSEEK/FUNC(R4) 
R5,LDFUNC 



R5,WTRDY 



#HEAD, TEMPI 
||1,BDA(R4) 



;CHECK IF SECTOR IS 
?A ffNOWN BAD SECTOR 
;TT WAS THEN 
;nO TO NEXT SECTOR 

;niVE IT ANOTHER CHANCE 



?NEXT SECTOR (OFFSET BY 10) 

JDONE WITH TRACK? 

?YES NEXT TRACK 

>N0 GO BACK FOR NEXT SECTOR 

JNEXT SECTOR 
?OONE WITH TRACK? 



;VES 
J NO 



JWHICH SURFACE? 
?TOP (0)/ BRANCH 

JBOTTOM, SWITCH TO TOP WITH 



ySEEK, GO IN ALSO 
?G0 SEEK 



JWAS TOP, MAKE BOTTOM. 



CS(R3),E.CS 

BA(P3)/E.BA 

DA(R3),E.DA 

MP(R35,E.MP 

MP(R3)/E.MP1 

MP(R3)#E.MP2 

109.,NWRTS,ERR13 

TSEPCODE 

199 

NWRTS 

ERR13 
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0075C6 
002126 



INC EPRCNT(R4) 

TST T.DPP JARE WE COUNTING ERRORS 

BEQ 2S ;N0 

CMP EPRCNT(R4),ERLMT?PAST IT 

BLO 2«; ?Nn 

MOV «FRLMTM,WHY 
JSR R5,DRDRV 
MOV #ENnWR,R5 

25: R TS R*! 

.SBTTL ROUTINE FOR SYSTEM CLOCK 

;ROUTINE TO READ SYSTEM CLOCK 

JIISES 'REGTIM' FROM DIAGNOSTIC SUPERVISOR 



002242 
002242 

002242 
002244 



TST 

BNE 

BREAK 

EMT 

RTS 

REQTIM 

EMT 

CMP 

PEQ 

MOV 

MOV 

SUB 

ADD 

CMP 

BGT 

SUP 

INC 

INC 

CMP 

BLT 

CMP 

BGT 

INC 

SUB 

RTS 



SYSCLK 
4<i 

C$BPK 

R5 

RO 

C^REQTIM 

R«J/LSTTIM 

3$ 

LSTTIM,R1 
RCLSTTIV 
Rl/RO 
R0#SECOND 
#60., SECOND 

160., SECOND 
INTERVAL 
MINUTE 
#60., SECOND 

#lo.,wiNUTE 

3? 

HOUR 

#6C.,"IN0TE 

R5 



;D0 we HAVE A CLOCK 
?YES, GO SERVICE IT 
;N0, CALL SUPER FOP "C 

;EXIT 

?GET PRESENT TIME 
?WAS IT MOVED 

;N0 MOVEMEMT since LAST CALL 
;CALCULATE DIFFERENCE 
?AND FIX ACCORDINGLY 

;RUMP SECONDS 
JSECONDS OVERFLOW 



;TImE BETWEEN REPORTS 
?RUMP MINUTES 



.SPTTL HEADS HOME ROUTINE 

;ROUTINE TO BRING HEADS OVER TRACK 



MOV 
MOV 
JSR 
JSR 

MOV 
BIC 
MOV 
PIS 
MOV 
JSR 



PO,-(SP) 
#RDHDP,FUNC(R4) 
R5,LDFUNC 
R5,WTRDY 

MP{R3),R0 
#177, RO 
P0,BDA(R4) 
#MK, BDA(R4) 
3SEEK,FUNC(R4) 
P5,LDFUNC 



?SAVE RO 
?RSAD HEADER 

;na do it. 



>GEf HEADER 
;QNLY CYLINDER 
JMOVE IT TO BUFFERED DA 



jset marker 
jload seek 

;SfiEKf 
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CZRLER.Pll 30-NOV-78 1R:2R HEADS HOME ROUTINE 



SEQ 00 94 



004537 021052 

016464 000122 

4 00ni22 

06C205 



007540 
007540 




012746 
012746 

104017 
023737 



JSR R5,WTRDY jWAIT. 

MOV PRP0S(R4),LSTHDR(R4> 

CLP PRP0S(R4) JSET BUFFER TO HOME 

MOV (SP)+,RO 

RTS R5 

.SBTTL RANDOM WC A WD DA ROUTINE 

^ROUTINE TO GET RANDOM SECTOR AND WORD COUNT FOR R/W TRANSFER- 
ySECTOR IS CHOSEN BETWEEN MIN/MAX LIMITS* WORD COUNT IS BETWEEN 
jMIN/MA5f WORD COUNT. WORD COUNT WILL RE ADJUSTED NOT TO CAUSE 
?TRACfC OVERFLOW IF HIGH SECTORS ARE CHOSEN.... 
?R4 HAS BUFFER OF DRIVE WE'RE WORKING WITH 
JON EXIT - BMP5R4J HAS WORD COUNT 



? 

GWCDA: 



BDA(R4) 



HAS 



CMP 

BNE 

MOV 

BR 

JSR 

MOV 

BIC 

CMP 

BHIS 

ASR 

INC 

BR 

CMP 

BHIS 

ROL 

BR 



J NOW GET WORD COUNT 



|^MXS,T.MNS 




DISK ADDRESS 

;MIN MAX SFCTC 
?N0- CALCULATf 
JLOAD SECTOR 
JGO GET WC 
?GET RANDOM » 

?0-77 ONLY 

;R2 LOWER THAN MAX 

;BRANCH IF YES 

;HALF IT 

;INC SO NOT 

;MIN OKAY 



FOR SECTOR 



002272 007526 
272 057526 



003256 
006462 
000004 



000012 
002272 

007526 

007526 



007526 
007550 
007550 



97S: 



TST 
BNE 
MOV 
CMP 
BHIS 

PRINTF 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

MOV 

CMP 
PGT 
MOV 



T.STIP 
95S 

MAXWCT.MXB 
MAXWC/T.MXB 
97$ 

#FKT13D<#0VER,T.MXB,MAXWC 

MAXWC,-(SP) 

T.MXB,-(SP) 

#OVER,-(SP) 

«PMT13D,-(SP) 

CSPNTF 



#12,SP 
MAXWC^ 



T.MXB 

T.MXB,T.MNB 

6$ 

T.MXB^T.MNB 



?MIN MAX EQUAL 
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2621 




013703 007526 
000421 

mil IIM 

023703 007526 
103003 



6$: 



;NOW WE 

;IF NOT 



T.MXB/R3 

9§ 

R5,RAND 

T.MXB, R3 

8$ 

53 




;YES SET WC 

JGET RANDOM WORD COUNT 
;MAXI ! I f I 



MOV 
RR 
JSR 
MOV 
BIC 
CMP 
BHIS 
ASR 
INC 
BP 
CMP 
BHIS 
ROL 
BR 

HAVE SECTOR AND WORD COUNT, CHECK THAT WORD COUNT WILL FIT ON SECTOR 
LOWER SECTOR START 



Mill 

mm 

020201 
101401 

042764 
050264 
0002C5 



9S: 
11$: 



000040 12$: 
000040 



MOV 

NEG 

MOV 

DEC 

ADD 

RMI 

CMP 

BLOS 

MOV 

MOV 

BIC 

BIS 

RTS 



#40., Rl 

R3 

R3,BMP(R4) 

IK 

#77,BuR^K^ 
R2,PDA(R4) 

R5 



; SETUP FOP FOURTY SECTORS 
;MAKE WORD COUNT NEGATIVE 
?LOAD WORD COUNT 

JDOWN COUNT MINIMUM START SECT NEEDED 
;ONE SECTOR'S WORTH 
;STILL NEED ANOTHER SECTOR 
?DID RANDOM SECTOR SUFFICE 
?BRANCH IF SUFFICED 
SNO, THEN MAKE IT FIT 
R4),BDA(R4) 
A(R4) 



023104 004737 005230 



.SBTTL ROUTINE TO PUmr BUFFER ON DCK 

?ROUTINE TO DUMP BUFFER ON DCK ERROR, TWO DUMPS ARE POSSIBLE 

?ONE WHERE WE CAN COMPARE WHAT IT SHOULD BE AND THE OTHER 
;WHSN WE CAN'T 

DMPRUF: JSR PCLINEl 
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;CALCULATE THE STARTING BUS ADDRESS FOR THE COMPARE 



003434 
006507 
000002 



94$: 



MOV 

BIC 

BIC 

MOV 

MOV 

SOB 

CLR 

ADD 

DEC 

PNE 

MOV 

NEG 

CMP 

BGT 

MOV 

SUB 

BR 

SUB 

MOV 

SUB 

MOV 

ASL 

MOV 

SUB 

PRINTB 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

MOV 
CMP 

BNE 

PRINTP 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

RR 



|12P.,R2 
93 S 

BMP(R4),R3 

R3 

R24R3 
945 

E.BA,R2 

R3<lP2 

»12R.,R0 

R2,R0 

RC/DWCNTl 

RC 

E.BA,R2 
R0/R2 

#FMT13/»BUSAD,R2i 
CHKSEC/-(SP) 

ttPUSAD,-(SP) 

#MT13i--(SP) 

#5,-(SP) 

SP/RO 

C5PNTB 

t*14tSP 

«PATLST,R0 

fR055i2(R2) 

if 

»FHT14/»N0REV 
»NtJREV,-('"^" 



;GET STARTING BUS ADDRESS 

;GET PRESENT DISK ADDRESS 
;SAVE SECTOR BITS 

JSAVE A COPY 

?SAVE ANOTHER 

JGET OIFF OF SECTORS 

^CALCULATE WORD COUNT 

JONE SECTORS WORTH 

?nONE 

;no 

jget word count 

?MA»rE IT POSITIVE 
^WORKING WITH FULL SECTOR 

JSTART OF COMPARE 
?G0 COMPARE BUFFER 
;GET SECTOR DIFF 



«CRLDA,CHKSSC 



#FMT14,- 
tt2/-<SP) 
SP,RO 
C<:PNTB 
#6,SP 
STDMP 



[II] 



?CHECK PATTERN LIST 
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'^00200 



002176 
002202 



002210 



000020 002210 
002200 

ipzn 55: 



CQ2202 

mil 

000003 
000010 



000012 
002202 

002202 '^02314 



CMP 
PHI 
CLR 
MOV 

MOV 
MOV 

NEG 

MOV 

SUB 

MOV 

MOV 

MOV 

TST 

BEG 

DEC 

TST 

BNE 

MOV 

MOV 

MOV 

DEC 

BR 

CLP 

INC 

CMP 

BEQ 

INC 
TST 
REQ 
DEC 

PRINTB 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

INC 
TST 
CMP 
BLE 

PRINTB 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 



^P2),»128. 

DECNT 
T.CLT,R1 

(P2)+/TEMP0 
TEMPC/DWCNT 
DWCNT 

(P2)+/TEMP1 

»2/TEMP0 

?2,TEMP2 

TEMPI, R3 

#16.,TEMP5 

TEMPO 

6^ 

TEMPO 
TEMP5 
5S 

«16., TEMPS 
TEMPI, R3 
(R3)+,GDDAT 

TEMPS 
7S 

GDOAT 
DWCNT 

|R2),GDDAT 



DECNT 
Rl 

Rl 

»FMT14B4TEMP2rGDDftT,(R2) 



;NaNZERO WORD COUNT 



;WORD 

JPATTEPN ADDRESS 
;16 ENTRIES 
JZERO OP PATTERN 
;ZERO BRANCH 

?WrTHIN LIST 



P) 



GDDJ-., 
TEMP2,-^SD 
ttFMT14B,-(f 

SP,PO 
C5PNTR 
#12, SP 



TEMP2 

TEMP2,DWCNTl 

At; 

ftFNT9A, DECNT, TEMP2 
TEMP2,-(SP) 
DECNT, -(SP) 
">S,-(SM 



itFMT9A,-i 
|3,-(SP) 
SP,PO 
CSPNTB 
B10,SP 
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SEQ 0098 




2783 
2284 
2785 

2787 
2788 
2789 



023744 



012604 
0002" 



005037 002170 



RTS 

MOV 
MOV 

PRINTR 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

TST 

DEC 

BNE 

PRINTB 

MOV 

MOV 

MOV 

EMT 

ADD 

MOV 

DEC 

BNE 

RTS 

DEC 

BNE 

RTS 



T.CLT,R1 
#10.,R3 

SP/Po 
CSPNTB 
«J5,SP 
<R2)4 

R| 

iFMT14C 
#FMT14C,-(SP) 

«1/-<sp5 

SPfcRO 

CSPNTB 

#4,SP 

«10.#R3 

|WCNTl 

R5 
H 

li 

R5 



JROUTINE TO CLEAR ALL DRIVE INFO, USED ON START OR 
JRESTART IF CALLED. CAN BE USED TO CLEAR INDIVIDUAL DRIVE 
HNFO BY BITMAP FOLLOWING CALL 
JCALL JSR R5, CLEAR 

? 



CLEAR! 



MOV 
MOV 
CLR 
CMP 
BNE 
MOV 
RTS 



R4/-(SP) 

R4,ffENDBUF 

(SP)4-,R4 

R5 



;SAVE R4 

JGET BUFFER STARTS 
KLEAR 

JAT END OF BUFFERS 

;no, go to 2| 

JRESTORE CURRENT BUFFER POINTER 
?EXIT 



.SBTTL ROUTINE TO CHECK FOR BAD SECTOR 

;R0UTINE TO HATCH BID SECTOR BDAfR4) IS SECTOR WE ARE LOOKING 

?FOR IN LIST POINTED TO BY BSBCPT(R4) HDRFND IS SET IF WE FIND IT- 

; 



010046 

noi4- 



CKBDSC! CLR HDRFND 

MOV RO/-(SP> 
MOV Rl/-(SP) 



;CLEAR FLAG 
;SAVE RO 
?SAVE Rl 
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J 0246 
0346 
012700 




024012 005237 002170 



mm 

024022 
024024 
024026 



3S! 
45 1 



MOV 
MOV 
MOV 
MOV 
TST 
BMI 
CMP 
BEQ 
TST 
DEC 
BNE 
BP 

INC 

MOV 
MOV 
MOV 
MOV 
RTS 



R2,-(SP} 
R3,-(SP) 

SslcfT?R4),P2 
CHKSEC,(R2) 




JSAVE R2 
JSAVE R3 
?16 ENTRIES 

?GE? WHERE WE'RE LOOKING 
;EN0 

JHAVE WE GOT A MATCH 

?THEN GO SET INDICATOR, ELSE 



;SET FLAG FOUND 



JBUFFER TO STORE PAD SECTOR LISTS 



024130 

mit 

024270 

mm 



024462 
024464 

iim 

524472 
024474 
024476 



m 

oooc 
oooc 
oooc 
oooc 
oooc 



18 




BSECO: 
BSECl: 
BSEC2: 
BSEC3: 
BSEC4! 
BSEC5: 
BSEC6: 
BSEC7: 



.BLKW 
.RLKW 
.RLKW 
.BLKW 
.BLKW 
. BLKW 
.BLKW 
.BLKW 



16. 
16. 
16. 

It 

16. 

1^: 



?LIST OF PATTERNS USED IN WRITING 

PATLST! PATO 
PATl 
PAT2 
PAT3 
PAT4 
PAT5 
PAT6 
PAT7 

PATO: .WORD C 
.WORD 
.WORD 
. WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
-WORD 



* 



ASSEMBLY ROUTINES MACYll 
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mm mm 

2848 024504 OOoOoO 

2849 024506 000000 

2851 024510 177777 

2852 177777 

illi 02451fi llllll 
2855 024520 052525 



ml 



mm 



024602 
024604 
024606 



2901 



024610 
024612 
024614 

024622 
024624 
024626 

024634 
024636 

nm 

024644 
024646 
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.WORD 

.WORD 

.WORD n 

. WORD 

PATl: -WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 

PAT2: .WORD 

.WORD 

.WORD C 

.WORD 177777 

.WORD 177777 

.WORD 177777 

.WORD 

.WORD 

•WORD 177777 

.WORD 177777 

.WORD 

.WORD 177777 

.WORD 

.WORD 177777 

.WORD C 

.WORD 177777 

PAT3: .WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



SEO 0100 
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PAT4: .WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 

^ .WORD 

2915 024702 133333 .WORD 

2916 024704 066666 .WORD 




.55555 
133333 
'^66666 
155555 
133333 
066666 
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SEQ 0102 



24706 155555 




.WORD 155555 



055132 
026455 

i\im 

122645 
151322 

::m\ 

055132 
026455 
113226 



025050 000240 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
• WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 

.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 

.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



E^DOFPROGRftM: 



12U05 

150442 

64521 

132110 

55044 

Ml 



mi 
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mm 



025052 104001 
0000' 



025054 000000 




mil: 

EMT CSETST 
HALT 

.SBTTL DRIVE INFORMATION BUFFERS 
?DRIVE INFORMATION BUFFER 

.LIST ME 

drbuf: 



SKCNT 

RXPRl 

RXFR2 

WXFRl 

WXFR2 

EPRCNT 

SFTCNT 

SKECNT 

DERCNT 

DCRCFR 

HCRCEP 

DLTCNT 

OPICNT 

HWFEPR 

NXMCWT 

RETRY 

BDA 

BMP 

FUNC 

BCSADR 

LSTHDR 

RTYPE 

SKCNTl 

PRFLGS 

RXFP3 

WXFR3 

LSTDA 

DIFWD 

DPHOUR 

TRERR 

DUTCEP 

DOWCK 

SFRNMl 

SEPNN2 

DCS 

DRSEL 

BPA 

BSECPT 

RSEEK 

SCFTCS 

WPIPG 

PPPOS 



;SEEK OPERATION COUNT 

JREAD OPERATION COUNT (BITS) LOW ORDER 

? " " " " HIGH ORDER 

;WRITE OPERATION COUNT (BITS) LOW ORDER 

; " " " " HIGH ORDER 

;ERROR COUNT - HARD 

JBRROR COUNT - SOFT 

?SEEK ERROR COUNT 

?DRIVE ERROR COUNT 

JDATA CRC ERROR COUNT 

jHEftDER CRC ERROR COUNT 

?DATA LATE ERROR COUNT 

yOPERATION INCOMPLETE ERROR COUNT 

;HEADER NOT FOUND ERROR COUNT 

?NON EXISTANT MEMORY ERROR COUNT 

yPRESENT RETRY NUMBER 

} " DISK ADDRESS CONTENTS 

?PRESSNT MULTIPURPOSE CONTENTS 

?LAST FUNCTION LOADED 

;CSR IMAGE OF LAST COMMAND 

?LAST POSITION ON DISK 

?ERROR ON WHICH RECOVERY IS IN PROGRESS 

?SEEK COUNT LOW ORDER 

;PROGRAM INTERNAL FLAGS 

?PEAD COUNT THIRD 

?WRITE COUNT THIRD 

;DISK ADDRESS OF SOFT ERROR 

?LAST DIFFERENCE WORD OF SEEK 

?TIME DRIVE WAS DROPPED 

^TRACKING ERROR COUNT 

JWRITE CHECK NECESARY 
;SERIAL NUMBER OF CARTRIDGE 
;SERIAL NUMBER OF CARTRIDGE 
;CSR ADDRESS 

JDRIVE SELECT BITS(8^9,10) 
;PRESENT BUS ADDRESS CONTENTS 
^POINTER TO BAD SECTOR FILE 

;CSR AT TIME OF SOFT ERROR 

JWRITE IN PROGRESS HURING PWR FAIL 

;PRESENT POSITION ON DISK 
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220 



OOOOCO 

mm 

000006 
000010 

mm 

000016 



K27? 
25276 



000076 
OOOlOO 
000162 

000106 



025326 

025334 
025336 
''25340 
025342 
025344 



0000 

S3S3 



SKCNT 

RXFRl 

RXFR2 

WXFRl 

WXFR2 

ERRCNT 

SFTCNT 

SKECNT 

DERCNT 

DCRCER 

HCRCER 

DLTCNT 

OPICNT 

HWFEPR 

NXMCNT 

RETRY 

BDA 

BMP 

FUNC 

BCSADR 

LSTHDR 

RTVPE 

SKCNTl 

PRFLGS 

RXFR3 

WXFP3 

LSTDA 

DIFWD 

DPHOUR 

TREPR 

DATCER 

DOWCK 

SERNMl 

SERNM2 

DCS 

DRSEL 

RPA 

BSECPT 

RSEEK 

SOFTCS 

WRIPG 

PRPOS 



SKCNT 

RXFRl 

RXFR2 

WXFRl 

WXFR2 

ERRCNT 

SFTCNT 

SKECNT 

DERCKT 

DCRCER 



?SREK OPERATION COUNT 

?REftD OPERATION COUNT (BITS) IjOW ORDER 
j" " HIGHDRDER 

?WRITE OPERATION COUNT (BITS) LOW ORDER 
; " " " HIGH ORDER 

JERRQR COUNT - HARD 
JERROR COUNT - SOFT 
;SEEK ERROR COUNT 
;DRIVE ERROR COUNT 



;DRIVE ERROR COUNT 
?DATA CRC ERROR COUNT 
;HEADER CRC ERROR COUN 



, , _ COUNT 

JDATA LATE ERROR COUNT 
;QPERATION INCOMPLETE ERROR COUNT 
JHEADER NOT FOUND ERROR COUNT 
JNON EXISTANT MEMORY ERROR COUNT 
JPRESENT RETRY NUMBER 
} " DISK ADDRESS CONTENTS 
;PRESENT MULTIPURPOSE CONTENTS 
;LAST FUNCTION LOADED 
?CSR IMAGE OF LAST COMMAND 
JLAST POSITION ON DISK 

JERROR ON WMICH RECOVERY IS IN PROGRESS 

;SEEK COUNT LOW ORDER 

^PROGRAM INTERNAL FLAGS 

;READ count THIRD 

?MRITE COUNT THIRD 

;DISK ADDRESS OF SOFT ERROR 

;LAST DIFFERENCE WORD OF SEEK 

;TIME DRIVE WAS DROPPED 

;TRACKING ERROR COUNT 

?WRITE CHECK NECESARY 
?SERIAL NUMRER OF CARTRIDGE 
J SERIAL NUMBER OF CARTRIDGE 
;CSR ADDRESS 

?DRIVE SELECT BTTS(8/9el0) 
?PRESENT PUS ADDRESS CONTENTS 
^POINTER TO BAD SECTOR FILE 

?CSP AT TIME OF SOFT ERROR 

?WRITB IN PROGRESS DURING PWR FAIL 

yPRESENT POSITION ON DISK 



ySEEK OPERATION COUNT 

JPEAD OPERATION COUNT (BITS) LOW ORDER 
? " " HIGH ORDER 

JWRITE OPERATION COUNT (BITS) LOW ORDER 
; " " " " HIGH ORDER 

JERROR COUNT - HARD 
;ERROP COUNT - SOFT 
;SEEK ERROR COUNT 
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025352 
025354 
025356 
025360 
025362 
025364 

opl^§ 

025372 
025374 

mu 

025402 
025404 

mil 

025412 
025420 



025456 
025460 
025462 
025464 
025466 
025470 

mm 



mm 

000044 
000046 
000050 
000052 
0Q0054 
000056 

mm 

000064 
0000 66 

m 



0001 
0001 



mm 

000004 
000006 

mm 



60024 
00026 



06C034 

Mil 

000044 
000046 

mm 



HCRCER 

DLTCNT 

OPICNT 

HNFERR 

NXMCNT 

RETRY 

BDA 

BMP 

FUNC 

BCSADR 

LSTHDR 

RTYPE 

SKCNTl 

PRFLGS 

RXFR3 

WXFR3 

LSTDA 

DIFWD 

DPHOUR 

TRERR 

DATCER 

DOWCK 

SERNMl 

SFRNM2 

DCS 

DRSEL 

BBA 

BSECPT 

RSEEK 

SOFTCS 

WRIPG 

PRPOS 



SKCNT 

RXFPl 

RXFR2 

WXFRl 

WXFR2 

ERRCNT 

SFTCNT 

SKECNT 

DERCNT 

DCRCER 

HCRCER 

DLTCNT 

OPICNT 

HNFERR 

NXMCNT 

RETRY 

BDA 

BMP 

FUNC 

BCSADR 

LSTHDR 

RTYPE 



HEADER CRC ERROR COUNT 
DATA LATE ERROR COUNT 
OPERATION INCOMPLETE ERROR COUNT 
HEADER NOT FOUND ERROR COUNT 
NON EXISTANT MEMORY ERROR COUNT 
PRESENT RETRY NUMBER 

DISK ADDRESS CONTENTS 
PRESENT MULTIPURPOSE CONTENTS 
LAST FUNCTION LOADED 
CSR IMAGE OF LAST COMMAND 
LAST POSITION ON DISK 

ERROR ON WHICH RECOVERY IS IN PROGRESS 

SEEK COUNT LOW ORDER 

PROGRAM INTERNAL FLAGS 

READ COUNT THIRD 

WRITE COUNT THIRD 

DISK ADDRESS OF SOFT ERROR 

LAST DIFFERENCE WORD OF SEEK 

TIME DRIVE WAS DROPPED 

TRACKING ERROR COUNT 



?WRTTE CHECK NECESARY 
;SERIAL NUMBER OF CARTRIDGE 
?SERIAL NUMBER OF CARTRIDGE 
?CSR ADDRESS 

?nRIVE SELECT BITS(8/9£lC) 
yPRESENT BUS ADDRESS CONTENTS 
;POINTER TO BAD SECTOR FILE 

?CSR AT TIME OF SOFT ERROR 

;WRITE IN PROGRESS DURING PWR FAIL 

JPRESENT POSITION ON DISK 



?SEEK OPERATION COUNT 

?READ OPERATION COUNT (BITS) LOW ORDER 

? " " " " HIGH ORDER 

;WRITE OPERATION COUNT (BITS) LOW ORDER 

; " " " " HIGH ORDER 

;ERROR COUNT - HARD 

JERROP COUNT - SOFT 

;SEFK ERROR COUNT 

?DRTVE ERROR COUNT 

;DATA CRC ERROR COUNT 

JHEADER CPC ERROR COUNT 

;DATA LATE ERROR COUNT 

?QPERATICN INCOMPLETE ERROR COUNT 

jHEftDER NOT FOUND ERROR COUNT 

yNON EXISTANT MEMORY ERROR COUNT 

?PRESENT RETRY NUMBER 

/ " DISK ADDRESS CONTENTS 

JPRESENT MULTIPURPOSE CONTENTS 

JLAST FUNCTION LOADED 

?CSR IMAGE OF LAST COMMAND 

;LAST POSITION ON DISK 

;ERROP ON WHICH RECOVERY IS IN PROGRESS 
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25526 
25530 



iim mm 



mi 



025,- 
02556 
025§7i 
P 




?5 



m 



mm 

000004 
000006 

mm 

000014 



025652 
025654 
25656 
025660 
025662 
025664 
325666 
025670 
025672 
025674 



m 



00007 
00010 

oooto 



SKCNTl 

PRFLGS 

RXFR3 

WXFR3 

LSTDA 

DIFWP 

DPHOUR 

TRERR 

DATCER 

DOWCK 

SERNMl 

SERNM2 

DCS 

DRSEL 

BPA 

BSECPT 

RSEEK 

SOFTCS 

WRIPG 

PRPOS 



SKCNT 

RXFRl 

RXFR2 

WXFRl 

VjXFR2 

ERRCNT 

SFTCNT 

SKECNT 

DERCNT 

DCRCER 

HCRCER 

DLTCNT 

OPICNT 

HNFERR 

NXMCNT 

RETRY 

BDA 

BMP 

FUNC 

BCSADR 

LSTHDR 

RTYPE 

SKCNTl 

PRFLGS 

RXFR3 

WXFR3 

LSTDA 

DIFWD 

DPHOUR 

TRERR 

DATCER 

DOWCK 

SERNMl 

SERNM2 



JSEEK COUNT LOW ORDER 
^PROGRAM INTERNAL FLAGS 
JREAD COUNT THIRD 
;WRITE COUNT THIRD 
?DISK ADDRESS OP SOFT ERROR 
;LAST difference WORD OF SEEK 
?TIME DRIVE WAS DROPPED 
?TRACKING ERROR COUNT 

?WRITE CHECK NECESARY 
;SERIAL NUMBER OF CARTRIDGE 
;SERIIL NUMBER OF CARTRIDGE 
5CSR ADDRESS 

JDRIVE SELECT BITS(8/9,10) 
;PRESENT BUS ADDRESS CONTENTS 
;POINTER TO BAD SECTOR FILE 

;CSR AT TIME OF SOFT ERROR 

;WRTTE IN PROGRESS DURING PWR FAIL 

?PRESENT POSITION ON DISK 



SpERAtIoN SSunI (BITS) LOW .ORpER_ 



SEEK 

READ _ - __ 

HIGH ORDER 
yWRITE OPERATION COUNT (BITS) LOW ORDER 
; " " " HIGH ORDER 

JERROR COUNT - HARD 
JERROR COUNT - SOFT 
?SEEK ERROR COUNT 
JORTVE ERROR COUNT 
;DATA CRC ERROR COUNT 
JHEADER CRC ERROR COUNT 
;DATA LATE ERROR COUNT 
?OPERATION INCOMPLETE ERROR COUNT 
?HEADER NOT FOUND ERROR COUNT 
?NON EXISTANT MEMORY ERROR COUNT 
JPRESFNT RETRY NUMBER 
; " DISK ADDRESS CONTENTS 
^PRESENT MULTIPURPOSE CONTENTS 
?LAST FUNCTION LOADED 
?CSR IMAGE OF LAST COMMAND 
;LAST POSITION ON DISK 

;ERROR ON WHICH RECOVERY IS IN PROGRESS 
;SEEK COUNT LOW ORDER 
^PROGRAM INTERNAL FLAGS 



JDISK ADDRESS OF SOFT ERROR 
JLAST DIFFERENCE WORD OF SEEK 
;TIME DRIVE WAS DROPPED 
;TRACKING ERROR COUNT 

?WRITE CHECK NECESARY 
;SERIAL NUMBER OF CARTRIDGE 
ySERIAL NUMBER OF CARTRIDGE 
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025702 
025704 



025714 

mm 



025726 
025730 

mm 



025746 
325750 



25752 
025754 

mv^i 

025766 
025770 

mm 

025776 
026000 



000004 
000006 

mm 



00026 

ma 



OQOIPC 
000102 



mm 



DRIVE INFORMATION BUFFERS 

DCS 
DRSEL 
BBA 

BSECPT 
RSEEK 
SOFTCS 
WRIPG 
PRPOS 



SKCNT 

RXFRl 

RXFR2 

WXFRl 

WXFR2 

ERRCNT 

SFTCNT 

SKECNT 

DERCNT 

DCRCER 

HCRCER 

DLTCNT 

OPICNT 

HNFEPP 

NXMCNT 

RETRY 

BDA 

BMP 

FUNC 

BCSADR 

LSTHDR 

RTYPE 

SKCNTl 

PRFLGS 

RXFR3 

WXFR3 

LSTDA 

DIFWD 

DPHOUR 

TRERR 

DATCER 

DOWCK 

SERNMl 

SERNM2 

DCS 

DRSEL 

BBA 

BSECPT 

RSEEK 

SOFTCS 

WRIPG 

PRPOS 



;CSR ADDRESS 

;DRIVE SELECT BITS( 8/<?#10 ) 

jpresent bus address contents 
;pointer to bid sector file 

?csp at time of soft error 

;mrite in progress during pwr fail 

;present position on disk 



SEEK OPERATION COUNT 

READ OPERATION COUNT (BITS) LOW ORDER 

" " " " HIGH ORDER 

WRITE OPERATION COUNT (BITS) LOW ORDER 
" " " " HIGH ORDER 

ERROR COUNT - HARD 
ERROR COUNT - SOFT 
SEEK ERROR COUNT 
DRIVE ERROR COUNT 
DATA CRC ERROR COUNT 
HEADER CRC ERROR COUNT 
DATA LATE ERROR COUNT 
OPERATION INCOMPLETE ERROR COUNT 
HEADER NOT FOUND ERROR COUNT 
NON EXISTANT MEMORY ERROR COUNT 
PRFSENT RETRY NUMBER 

DISK ADDRESS CONTENTS 
PRESENT MULTIPURPOSE CONTENTS 
LAST FUNCTION LOADED 
CSR IMAGE OF LAST COMMAND 



JLAST POSITION ON DISK 
;ERROR ON WHICH RECOVERY IS IN PROGRESS 
JSEEK COUNT LOW ORDER 
JPROGRAM INTERNAL FLAGS 
JREAD COUNT THIRD 
JWRITE COUNT THIRD 
JDISK ADDRESS OF SOFT ERROR 
JLAST DIFFERENCE WORD OF SEEK 
JTIME DRIVE WAS DROPPED 
JTRACKING ERROR COUNT 

JWRITE CHECK NECESARY 
JSEPIAL NUMBER OF CARTRIDGE 
JSEPIAL NUMBER OF CARTRIDGE 
JCSR ADDRESS 

JDRIVE SELECT BITS(8/9elO) 
JPRESENT BUS ADDRESS CONTENTS 
JPOINTER TO BAD SECTOR FILE 

JCSR AT TIME OF SOFT ERROR 

JWRITK IN PROGRESS DURING PWR FAIL 

JPRESENT POSITION ON DISK 



JSREK OPERATION COUNT 

JREAD OPERATION COUNT (BITS) LOW ORDER 
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260 52 
026054 
^26056 
026060 
026062 
026064 

nrA 

026072 
026Q74 



Ji5 

6044 
6046 



mm 



026176 
026200 

im 

026206 
026210 

nm 

026216 
026220 



RXFR2 

WXFRl 

WXFR2 

BRRCNT 

SFTCNT 

SKECNT 

PFRCNT 

DCPCER 

HCRCER 

DLTCNT 

OPICNT 

HWFERR 

NXMCNT 

RETRY 

BHA 

BMP 

FUNC 

BCSADR 

LSTHDR 

RTYPE 

SKCNTl 

PRFLGS 

PXFR3 

WXFR3 

LSTDA 

DIFWD 

DPHOUR 

TRERP 

DATCFR 

DOWCK 

SEPNMl 

SFRNH2 

DCS 

DPSBL 

BBA 

BSECPT 

RSEEK 

SOFTCS 

WPIPG 

PRPOS 



SKCNT 

RXFRl 

RXFR2 

WXFRl 

WXFR2 

ERPCNT 

SFTCNT 

SKECNT 

DERCNT 

DCRCFP 

HCRCER 

DLTCNT 

OPICNT 

HNFFRR 



; " " " HIGH ORDER 

JWRITE OPERATION COUNT (BITS) LOW ORDER 
; " »• " " HIGH ORDER 

JBRROR COUNT - HARD 
?ERROR COUNT - SOFT 
ySEEK ERROR COUNT 

;drivb error count.. 

?DATA CI^C error COUNT 



?HEADER CRC ERROR COUNT 

JDATA LATE ERROR COUNT ^^^^ 

?OPERATION INcSmPLETE ERROR COUNT 



?NON EXISTANT MEMORY ERROR COUNT 

?PRESENT RETRY NUMBER 

} " DISK ADDRESS CONTENTS 

IPRESENT MULTIPURPOSE CONTENTS 

?LAST FUNCTION LOADED 

?CSR IMAGE OF LAST COMMAND 

2^Sg5R''8g'I'H??H°MS?lR, IS IN PROGRESS 

JSEEK COUNT LOW ORDER 

;PROGRAM INTERNAL FLAGS 

?READ COUNT THIRD 

;WRITE COUNT THIRD 

?OISK ADDRESS OF SOFT ERROR 

?LAST DIFFERENCE WORD OF SEEK 

JTIME DRIVE WAS DROPPED 

;TRACKING ERROR COUNT 

JWRITE CHECK NECESARY 
JSERIAL NUMBER OF CARTRIDGE 
JSERISL NUMBER OF CARTRIDGE 
>CSR ADDRESS 

JDRIVE SELECT BITS(8,9tlO) 
^PRESENT BUS ADDRESS CONTENTS 
;POINTER TO BAD SECTOR FILE 

JCSR AT TIME OF SOFT ERROR 

yWRITE IN PROGRESS DURING PWR FAIL 

;PRESENT POSITION ON DISK 



SEEK 
READ 



OPERATION COUNT 
OPERATION COUNT 



(BITS) LOW ORDER 
" HIGH ORDER 
WRITE OPERATION COUNT (BITS) LOW ORDER 
" " " " HIGH ORDER 

ERROR COUNT - HARD 
ERROR COUNT - SOFT 
SEEK ERROR COUNT 
DRIVE ERROR COUNT 
DATA CRC ERROR COUNT 
HEADER CRC ERROR COUNT 
DATA LATE ERROR COUNT 
OPERATION INCOMPLETE ERROR COUNT 
HEADER NOT FOUND ERROR COUNT 
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026310 



000034 
000D36 

mxi 

000044 
000046 

888815 

000054 
000056 

mm 

000064 
000(566 

mm 

000374 
000076 

mm 

000104 
050106 

388115 
§8811? 

mm 



026316 OOOOOC 




NXMCNT 

RETRY 

BDA 

BMP 

FUNC 

BCSADR 

LSTHDR 

RTYPE 

SKCNTl 

PRFLGS 

RXFR3 

WXFR3 

LSTDA 

DIFWD 

DPHOUR 

TRERR 

DATCER 

DOWCK 

SEPNMl 

SEPNM2 

DCS 

DRSEL 

BBA 

BSECPT 

RSEEK 

SOFTCS 

WRIPG 

PRPOS 

.NLIST ME 

endbuf: .word p 
bgnmod hroppm 



;NON EXISTANT MEMORY ERROR COUNT 

yPRESENT RETRY NUMBER 

J " DISK ADDRESS CONTENTS 

;PRESENT MULTIPURPOSE CONTENTS 

;LAST FUNCTION LOADED 

JCSR IMAGE OF LAST COMMAND 

;LAST POSITION ON DISK 

JERROR ON WHICH RECOVERY IS IN PROGRESS 

?SEEK COUNT LOW ORDER 

;PROGPAM INTERNAL FLAGS 

JREAD COUNT THIRD 

?WRITE COUNT THIRD 

JOISK ADDRESS OF SOFT ERROR 

;LAST DIFFERENCE WORD OF SEEK 

?TIME DRIVE WAS DROPPED 

yTRACKING ERROR COUNT 

;WRITE CHECK NECESARY 
ySERIAL NUMBER OF CARTRIDGE 
;SERIAL NUMBER OF CARTRIDGE 
;CSR ADDRESS 

?DRIVE SELECT BITS(8,9.10) 
?PRESENT BUS ADDRESS CONTENTS 
;POINTER TO BAD SECTOR FILE 

;CSR AT TIME OF SOFT ERROR 

;WRITE IN PROGRESS DURING PWR FAIL 

;PRESENT POSITION ON DISK 



PGNHRD 

.WORD L10024-LSHARD/2 

GPRML CNTYPE/CNT/l/VES 

.WORD T^CODE 

.WORD CNTYPB 

.WORD 1 

GPRMA CSRMSG/CSR, 0/1 60 000, 177776, YES 

• WORD T<!C0DE 

.WORD CSRMSG 

.WORD TSLOLIM 

.WORD TSHILIM 

GPRMA VECMSG,VECT,0,0,776,¥ES 

.WORD TflCODF 

.WORD VECMSG 

.WORD TSLOLIM 

.WORD t^;hilim 

GPRMD BRMSG#PRIOR/0,340,C,7,YES 

.WORD T$CODE 

.WORD RRMSG 
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.WORD 
.WORD 
.WORD 
GPRMD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 

ENDHRD 
.EVEN 



ASCI 7. 
ASCIZ 
ASCIZ 




3 40 

T^LOLIM 
T s H I L I M 

DRMSG,DRBT/0,0 3400,0,7,YES 

T^CODE 
ORMSG 

?1l8Eim 

t<;hilim 



/RLll/ 

/RUS ADDRESS/ 
/RR LEVEL/ 
/VECTOR/ 
/DRIVE/ 



BGNSFT 

.WORD L1O025-LSSOFT/2 

RTMSG,RLT,Dr 177777,0, 177777, YES 
T^CODE 
RTMSG 
177777 
TSLOLIM 
T*!HTLIM 

SRTMSG,SRLT,D, 177777, 0,177777, YES 

T5C0DE 
SRTMSG 
177777 
T$LOLIM 
TSHILTM 

FDCHK,DCKFG,1,YES 
T^CODE 
FDCHK 

h 

T5C0DE 

CHKLMT,CLMT, 0,1 77777, 0,1 28., YES 

TSCODE 
CHKLHT 
177777 
TSLOLIM 
TsHTt T M 

INMSG,TVT, 0,177777, 1,177777, YES 
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^265 26 
026530 



26560 
26562 



mm 



t 



005052 
027421 

mm 

inni 



032044 

001052 
027225 

mil 

mm 



mm 

mm 

\m 

036052 
027742 

mm 

mm 

m\i 

177777 
000000 

mm 

025052 

oooooc 
mm 




.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
GPRML 
.WORD 
.WORD 
.WORD 
XFERF 
.WORD 
GPRMD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
GPRMD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
GPRMD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
GPRMD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
GPRMD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
GPRML 
.WORD 
.WORD 
.WORD 
XFERF 
.WORD 
GPRMD 
.WORD 
.WORD 
.WORD 
-WORD 
.WORD 
GPRMD 
.WORD 
.WORD 



TSCODE 

INMSG 

177777 

TSLOLIM 

TSHILTM 

DRPMS,DRFLG,1,YES 

TSCODE 

DRPMS 

1 

3S 

TSCODE 

ERMSG,ELT, 0,177777,0, 177777, YES 

T<5C0DE 
ERMSG 

T<?HILIM 

SFTMSG,SEL, 0,1 77777, 0,1 77777, YES 

TSCODE 

SFTMSG 

177777 

TSLOLIM 

TSHILIM 

0|:RPMS,DCD, 0,1 77777, 0,1 77777, YES 

TSCODE 

DFRPMS 

177777 

TSLOLIM 

TSHILIM 

SEHSG,SET, 0,177777, 0,1 77777, YFS 

TSCODE 

SEMSG 

177777 

TSLOLIM 

TSHILIM 

DREMSG,DET, 0,177777, 0,1 77777, YES 

TSCODE 

DPEMSG 

177777 

TSLOLIM 

TSHILIM 

STLMT,0PFLG,1,YES 

TSCODE 

STLMT 

1 

2S 

TSCODE 

DAMSG,DAT,D, 

TSCODE 
DAHSG 
177777 
TSLOLIM 
TSHILIM 

SKMSG^SKT, 0,177777,1, 177776, YES 

SKMSG" 



0,177777,1, 177776, YES 
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007052 
027255 



.WORD 
.WORD 
.WORD 
GPPML 
• WORD 
.WORD 
.WORD 
XFFRF 
.WORD 
GPRML 
.WORD 
.WORD 
.WORD 
XFBRF 
.WORD 
GPRMP 
.WORD 
.WORD 
-WORD 
.WORD 
.WORD 
GPRMD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
GPRML 
.WORD 
.WORD 
.WORD 
GPRML 
.WORD 
.WORD 
.WORD 
XPERT 
.WORD 
GPRMD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
GPRML 
.WORD 
.WORD 
.WORD 
GPRMD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
GPRMD 
.WORD 
.WORD 



177777 

TSLOLIM 

T5HILIM 

CHANGE/CHFLG^l/YES 

TSCODB 
CHANGE 

T^CODE 

STIPMS,STIP,1,YES 



1 

6S 



TSCODE 

M?fBUF,MXB,D, 177777, 3, 5120., YRS 

T<5C0DF, 

MXBUF 

177777 

T^LOLIM 

T5HILTM 

HINRUF,MNB,D,177777,3.,5120.,YFS 

TSCOpE 

MINBUF 

177777 

TSLOLIM 

T^HILIM 

RDONLY,ROF,1,YES 

T?CODE 
RDONLV 

RANPAT,RAN,1,YES 

T^CODE 
RANPAT 

4<! 

T^CODE 

ONLONE/PAT,O,17/0,7,YES 

T<!CODE 
ONLONE 
17 

TSLOLIM 
TSHILIM 

WCKMSG/WCK,1,YES 

T^CODE 
WCKMSG 

CMMSG,RDT, 0,177777,0, 12 8., YES 

CMMSG ' 
177777 
T$LOLIM 
TSHILIM 

D|MSGgDDT, 0,177777, 0,175, YES 

DEMSG 
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11 




052123 
042523 

m 

122 



050111 
045505 

mm 

047101 



046125 
051040 

050040 



.WORD 
.WORD 
.WORD 
GPRMD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
GPRMD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
GPRMD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
GPRMD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
GPRMD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
GPRMD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 

GPRML 
.WORD 
.WORD 
.WORD 



ENDSFT 
.EVEN 



STIPMS: 

srtmsg: 

CHKLMT: 
RDONLV; 
RANPAT: 



. ASCIZ 
.ASCIZ 
-A SCI 7 
.ASCIZ 
.ASCIZ 



177777 

TSLOLIM 

TSHILIM 

MXHDirMXH, 0,100,0,1, YES 

TSCODE 

M^HP 

100 

TSLOLIM 
TSHILIM 

MI NHDgMNH, 0,100,0,1, YES 

MINHD 
100 

TSLOLIM 
TSHILIM 

MXCVL^MXC, 0,77600,0, 255., YES 

MXCYL 
77600 
TSLOLIM 
TSHILIM 

MI NCYL,MNC, 0,77600,0, 255., YES 

TSCODE 

MTNCYL 

77600 

TSLOLIM 

TSHILIM 

MXSEC,MXS, 0,77, 0,39., YES 

TSCODE 

MXSEC 

77 

TSLOLIM 
TSHILIM 

MI NSECMNS, 0,77, 0,39., YES 

TSCODE 
MINSEC 
77 

TSLOLIM 
TSHILIM 

AUTOMS, AUTO, 1, YES 

TSCODE 

AUTOMS 

I 



%STIPULATE R/W XFER SIZE% 



/SEEK RETRY LMT/ 
/« OF ERR DUMPED/ 
/RD ONLY/ 
/RAN PAT/ 
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MliC^|l 3')A(1052) 



30-NOV-78 10:42 PAGE 7-12 
DRIVE INFORMATION BUFFERS 



mil 

043516 
054040 

mi 

042110 
041440 

hm 

051440 
042040 

mm 

020120 
044103 



onlone: 

ERMSG: 

sftmsg: 
demsgi 

RTHSG: 

semsg: 
dremsg: 

OA MSG: 

skmsg: 

inmsg: 

change: 

mxbuf: 

minbuf: 

mxho: 

minhd: 

mxcyl: 

mincyl: 

MXSEC! 

minsec: 
automs: 

FDCHKt 
STLMT: 
DRPMS: 

hckmsg: 

DBRPMS: 

cp'msg: 
.even 



=30132 



. ASCIZ 


. ASC 


Z 


. ASC 
.ASC 


Z 


z 






.A|C 

1 As8 
.ASC 




z 


z 


.ASC 


z 


.ASC 
.ASC 


z 


7. 


.ASC 


t 


.ASC 


I 


.ASC 


Z 


. ASC 


z 


.ASC 
.ASC 


z 


7. 


.ASC 


z 


.ASC 


z 


.ASC 


z 


.ASC 


z 


.ASC 
.ASC 


z 


z 


.ASC 


z 


.ASC 


z 


.ASC 


IZ 



/WHICH ONE/ 
/HRD ERR LMT/ 
/SFT !iRR LMT/ 
/If OF DATA ERR 
/RETRY LMT/ 
MT/ 



PPT'D PER BUF/ 



XFER LMT (*10(10))/ 
4T (*10(3)1/ 

BETW REPORTS (MIN)/ 
;E SEEK, R/W PARAMETERS% 



/SK ERR LMT. 
/PR ERR LMT/ 
/DATA XFER LM 

/SK LMT : 

/TIME BETW 
*CHANGE SE- 
/MAX XFER/ 
/MIN XFER/ 
/MAX HD? 
/MIN HD/ 
/MAX CYL/ 
/MIN CYL/ 
/MAX SBC/ 
/MIN SEC/ 
/CHK DRDY/ 

/DATA DMP ON DCK ERR/ 
/DROP DR ON OPER LMTS REACHED/ 
/DROP DR ON ERR LMTS REACHED/ 
/WR CHK/ 

/DATA MISCOMPARE LIMIT/ 

/WORDS PER SECTOR COMPARED ON READ/ 



JARBA RESERVED AS PATCH AREA FOR DIAGNOSTICS 
K = 30132„WAS JELECTED^AS l'LASTADl'_Tg_PR^ 



;BIT 7 OF "LAST AD" MUST R; 
JWHEN RUNNING ON THE LSI- 



L$last:: 



. CLEARED TO ACHIEVE 
.1 UNDER APT. 



A VALID MAILBOX ADDRESS 
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DIAGNOSTIC SUPERVISOR 



LQV CORE SET UP 



.SPTTL 
.WORD 
.WORD 
.WORD 
.WORD 



DIAGNOSTIC SUPERVISOR — LOW CORE SET UP 
JSPACE FOR USER POOL POINTER 



END.SUPV=.+2 
.END 200 



JSIZE 

?CHECKSnM (NOT CURRENTLY USED) 
?SIZE OF H.W. PTAB. ALLOCATION 
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ABQFLA 30 456 G 

ABOPAS 030374 G 

ABO.FM 032736 

M mm' 

AFSI 030164 G 

k^mCK 015674 

AGSTAT 0|6116 

ALLOC 051076 

APT.ER 032066 

ARDHDR 015754 

ASEEK 015624 

tM^'z mm 

AUTQMS 027605 

tmv mm 

aIaAW 034750 

ASAAX 034762 

ASAAY 034770 

ASAAZ 035QO4 

&SABA 035014 



BA16 
BA17 



030132 

mn 

000001 
0000C2 

m 

oooioo 

000200 
030400 
OOlOOO 
000002 



81X15 
BIT2 
BIT3 
BIT4 



BITS = 
BtT6 = 
BIT7 = 
BITB = 
BIT^ = 
BLD.HH 
BLOCK 
BMP = 
BPRIOR 
BRMSG 
BSECPT= 
BSECO 

ma 

BSEC3 
BSEC4 
BSeC5 
BSEC6 
BSEC7 
BIJFl 
BUF2 
BUSAD 
BVEC 
B^AAB 
BfAAF 
CALLPC= 
CALLPS= 
CALLSP= 

CAL.TT 

CART 

CEHO 

CHANGE 

CHFLG = 

CH«CFNC 

CHKLMT 

CHKLUP 

CHKSEC 

CHKSTR 

CHKTTY 

CHK.MA 

CHK.PC 

CHK.SW 



CH.PAS 

CKBDSC 

CKDEip 
CLEAR 
CLEAR. 
CLKACC 




Ji 

024330 

mm 

002270 
003737 

037134 

IHHi 

055656 
27451 



37236 
047526 

mm 

031566 

mm 

035122 

016514 
023722 

m4 



mm 

002407 
547610 
002421 
OOQOOO 
OCOOQO 
26 401 
021150 

um'i 

002140 
042500 

mn 

043654 

mm 

-54 



001 



QOQ02 



mil 
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D5AAK 

D|AAL 

DSAAM 

EF.CON= 

EF.NEW= 

EF,PWR= 

EF.RESr: 

EF.STAr 



47220 
000036 



016350 
043732 
042532 
002316 
043470 



ERR13 

ERR2 

ERR3 

ERR4 

ERR6 

ERR7 

ERR8 

ERR9 

ERT 

ESC. PC 
EV.COU 
EXHAUS 
EXIT 
EXITl 
EXP 
E.BA 
E.CS 
E.DA 
E.MP 
E.MPl 
E.MP2 
FASCII 
FASPNT 
FOCHK 
FTLINF 
FILL 
FILL.C 
FINDBF 
FtNERR 
FLAGS 
FLAGSl 
FLAGTA 
FLAG. I 
FLA.SE 
FLG.MA 
FHTSl 



mm 

004376 
004514 

mm 

004664 

mm 

042524 
030136 

mm 

016344 
004Q61 
002252 
002250 
002254 
002256 
0Q2260 

mm 

002310 



FMTSIA 
FMTSIP 
FMTS2 



FMTS2A 
FMTS2B 
FMTS3 
FMTS3A 
FMTS4 
FMTS5 
FMTl 
FMTIA 
FMTIO 
FMTIOA 
FMTIOB 
FMTll 
FMT12 
FMT13 



imi 



FMT13P 

FMTi4 

FMT14A 

FMTi4R 

FMTi4C 

FMf 15 

FMT17 



UUUiU 

nm 

00001 




G$RADT= 
G§XFER= 
GSYES = 
HCE = 
HCOPEn 
HCOREQ 
HCORET 
HCRC = 
HCRCEPr 
HC. ADR 
HC.DEF 
HC.DIA 
HDHOME 
HDPFNT 
HEAD = 
HERTZ 
HINt'M 
HNF 

HNFERR 
HOLDSP= 
HOUR 
HPTCOD 
HPDPRW 
HWSEC 
HW.ADR 
H$AftB 
ILLEG 



000 
0040 

mi 

000020 

mm 

000010 
040000 

mm 

030420 G 
004Q00 
000024 
030170 G 

mm I 

022500 
002170 
OOOIOO 
034544 

4 



000032 

mv.i 

007466 G 
026320 G 

giJiie G 

054224 
0Q3574 



-m. 



n 

030410 
007664 
C47436 
035522 
030224 
027421 
050364 



turn 



005 
017 



Ulife 

030240 G 

030236 G 

003645 

034562 

034556 

034552 
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imi 

---132 

IS 



002014 



MINBUF 
MINCYL 



C04264 

mm 

003610 

hm 



00034 



NO. LPT 
NO.PTA 
NR = 
NHMPIN 



OSPWR = I 
PARSES I 
PAR. LA 
PASS.C 
PAT 

PATLST 

PATO 

PATl 

PAT2 

PAT3 

PAT4 

PATS 

PAT6 

PAT7 

PEROTH 

POWER 

PRFLGS= 

PRGER 

PRINTC 

PRINTF 

PRIOR = 

PRIORI 

PRI0R2 

PRIOO = 

PRIOi = 

PRI02 = 



00001 
00001 



PRI07 = 
PRNTST 



000340 
050626 
035076 
000122 
030416 



RTYPE = 
RTl 
RWCNT 
RXFR1 = 
RXFR2 = 
RXFR3 = 
SAVE 
SAVEDO= 
SEARCH 



mi 

35100 
10544 
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SECMSK 

SECOND 

SEEK = 

SEGSTA 

SEL 

SELMT 

SEMSG 

SERLMT 
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002142 

mm 

030432 
000046 
0Q7510 
027323 
003147 



SERNM2: 
SET 

IWSl 

SEXHAU 

SFBMSG 

SFLMT 

SFTCNT= 

SFTMSG 

SFTPRM 

SHIFT 

SIGN = 

SKCNT = 

SKCNT1= 



000004 

mm 

003326 

mm 

000014 

mm 

060414 
"00004 

mn 



SHSG 002564 
SOFTCS= 0QQ116 
SOPLMT 003414 
SPE = 004000 
SPEC.U 035024 
SPTCOD 007502 
SPy.SE 000400 
SRLT = 000062 

mr/c mm 

STDMP 023620 

Wi'p' - mm 

. ABS. 060736 




3 

2212 

m 

002220 
055614 

035036 
002330 
030366 



T<5BRPN = 
TSEXCPr 
TSHILI= 
TSLOLT= 
TSLSYMr 



mm ' 



610026 
QCOOOO 

000001 

%\%m 

010021 
010024 




mil 
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